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800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components. $ /"^ q 50 
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1050 MECHANISM 

Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor etc. Just plug in, no 
difficult alignments or adjustments 
required. $^y50 



SUPRA 
2400 BAUD MODEM 

Fully Hayes Compatible. High 
quality. Works with all Atari's. 8 
bit requires interface. 

$ 157 95| 



POWER PACKS 

Exact replacement transformer 
for 800/400, 1050, 810, 1200XL, 
850 and 1020 units. Replaces 
older "weaker" units. Atari part 
#C017945. $ 50 



400 3 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly and CPU Module. All 
boards are new, tested and complete 
with all components. - 

$HQ50 

400 Membrane Keyboard $12.50 



810 DISK DRIVE PARTS 

Sideboard with Data Sep $44.95 

Analog Board $19.50 

Rear Power Board (New Style) . $35.00 
Rear/ Analog Set (Llpgrade) .... $47.50 

Comptete Set (New Style) $67.50 

Board set includes instructions for using 
a Tandon TM- 100-1 or MP I B-51 
mechanics to build your own disk drive. 
(Mechanics NOT included or avail. Irom us) 



ATARIWRITER 
CARTRIDGE 

Popular cartridge version turns 
any 8 bit Atari into a powerful 
word processor. Written by 
Atari. Disk drive supported but 
not required. <t r\ r\Q5 

For all Atari's except ST * J M 



600XL 64K UPGRADE 

Easy to install internal 
modification allows you to hook 
up a disk drive and run all 
800XL software. Kit includes all 
parts and detailed instructions. 
Soldering required to install 3 
jumpers. $ p Q95 



800 10K "B" O.S. Module 

Older 800 units need the revision "B" 
Operating system to run newer 
software. Type the following peek in 
BASIC to see which revision you 
have. PRINT PEEK(58383). „ 

$ QoU 

If the result is 56 order now! ^J 



PILOT PROGRAMMING 
LANGUAGE PACKAGE 

Includes PILOT cart, with "Turtle 
Graphics", Pilot Primer and Student 
Pilot manuals. PILOT is an excellent 
learning or teaching tool. . , ^__ , 
Works with all Atari's $ ^ /50 | 

except ST. 
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PADDLE CONTROLLERS 

(Pair). Required for numerous 8 bit 
programs and applications. Use 
these to add two changeable 
variables to your BASIC or 
machine language programs. 

$050 



SERIAL I/O CABLE 

High quality 13 pin cable 
used to connect 8 bit Atari's 
to disk drives, interfaces, etc. 

$ C95 
New low price yj 



800/400 MODULES 

NEW PARTS COMPLETE WITH IC'S 

(t. ^v cr\ ' 80 ° Main Board 

S O • 800/400 CPU with GTIA 

rn • 800 10K "B" OS. Module 

• 400 Man Board 

■ 400 Power Supply Board 



EACH 



CX853 16K Ram Module $14.50 
800 Power Supply Board $14.50 

INTEGRATED CIRCUITS 

■ CPU CO14806 

• POKEY C012294 

• PIA C014795 

•GTIA CO14805 

$ A 50 • ANTIC C012296 

f\ • CPU CO10745 

T -PIA CO10750 

„, , • CPU C014377 

EACH -DELAY CO60472 

■ 2600 TIA . . CO10444 

• PIA C012298 

• CPU 6507 

• PIA 6532 

•RAM 6810 

• CPU 6502B 

1050 O.S. ROM $13.50 

2793 1050 FDC $19.50 

1050 5713 STEP DRIVER.. $5.25 
C021697- UseC012296 -Except 130XE 
810 O.S. ROM C011299C . . $10.00 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
800, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISC. HARDWARE 

1050 Track Sensor . . . $6.50 

1030 Power Pack $9.50 

Fastchip for 800/400 . . $15.50 
800 256K Upgrade w/o Ram $89.95 
Supra 2400 l&Jd Modem $159.95 

Atari Joystick $7.00 

850 or PR Modem Cable $14.50 
850 or PR Printer Cable $12.50 

P:R: Connection $65.00 

Printer Interface $39.95 

I/O 13 Pin PC mount . . . $4.50 

I/O 13 Pin Plug Kit $4.50 

ST 6' Drive Cable $14.00 

820 Printer Mechanics. . $9.50 
Joystick Extension Cable $5.00 
30 Pin Cartridge Socket . $4.50 
810 Door Latch Assy. . . $15.00 

Serial I/O Cable $5.95 

1027 Transformer CALL 

U.S. Doubler $29.95 

ST Modem Cable $14.50 

ST Drive connector PC mount $6.50 
ST Drive connector plug $6.50 
25 Pin null modem connecter $10.95 



COMPUTER BOOKS 

Hackerbook $5.00 

Inside Atari Basic $5.00 

Atari Basic Ref. manual. $5.00 

Basic- Faster & Better ... $22 .95 

Assembly Language Guide $19.95 

XE Users Handbook .... $17.95 

XL Users Handbook .... $17.95 

Advanced Programming $19.50 
Astrology with type in prog. $5.00 

Atari Games/type in prog. $5.00 

Forth on the Atari $5.00 

Mapping the Atari $18.50 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 
crystal allows you to build your 
own serial/parallel interface for 
attaching modems and printers to 
all 8 bit Atari computers. . . $7.50 
Board & all plug in IC's . . . $39.50 

ATARI XM301 MODEM 

Direct connect 300 Baud modem 
works with all 8 bit Atari's. No 
seperate interface required. $44.95 

BASIC CARTRIDGE 

Basic Rev. "A" Cart, works with 
all Atari Computers except ST. 
Exact replacement for 
800/400/1200XL $15.00 

EPROM CARTRIDGES 

16K Eprom Board with case. 
Specify dual 2764 or single 27128 
style. Gold contacts $6.95 



SOFTWARE 

O'bert cartridge $10.00 

Choplifter Cart $10.00 

Silicon Warrior Cart. . $12.50 

Springer Cart $5.00 

Fun with Art Cart. .. . $10.00 
Donkey Kong Cart. . . . $5.00 
Easterm Front Cart. $5.00 

Star Raiders Cart $10.00 

DropZoneDisk $9.95 

Edt/Asm Cart, w/o man. $10.00 
Hard Hat Mack Dsk . . $5.00 
D-BugchildwareDisk. $5.00 
WordTlyer childware. $10.00 
Home filing manager . . $7.50 
Musical Pilot Ed. Disk $5.00 
Big Math Attack Dsk . . $5.00 
Chambers/Zorp Dsk . . $5.00 

Pathfinder Disk $5.00 

Match Racer Disk .... $5.00 
Encounter/Quester Disk $5.00 

Baja Buggies Disk $5.00 

Commutation Dsk $5.00 

Cyborg Adventure Disk $5.00 
Fractions Tutorial Dsk $5.00 
Decimals Tutorial Disk $5.00 

SERVICE RATES 

Flat Service Rates below include 
Parts & Labor, 60 Day Warranty. 

800 Computer $39.50 

850 Interface $39.50 

810 Disk Drive .... $69.50 
1050 Disk Drive . . . $75.00 
800 Keyboard only. $25.00 

Include $7.00 return shipping and 
insurance. Include $4.p0 shipping 
lor 800 keyboard repair only. 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 



AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $20.00. 
No personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders 
under $150.00. Add $2.25 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. No refunds or exchanges. 

Prices subject to change vwrjioul nolce. Send SASE fcr tree price list Atari i6 a reg trademark c< Atari Ccd 



CIRCLE #101 ON READER SERVICE CARD. 



It has always been ANALOG Comput- 
ing's policy to bring its readers the highest 
quality, type-in software found in any 
magazine. Frequently, however, commer- 
cial-quality programs are so huge that the 
printing of the listings in the magazine 
is prohibitive. Rather than resort to a "disk 
only" format for those programs, we sad- 
ly pass them by. 

Once in a while, though, a program 
comes in that simply can't be ignored — 
even if it is on the large size — and we are 
faced with a decision: Do we offer the pro- 
gram over the course of two or three 
months, breaking it up into smaller 
pieces? Or do we dedicate a larger -than- 
normal portion of the magazine to the 
program, hoping that the majority of our 
readers will want to get the whole thing 
in one large article? 

The last time this came up was when 
the program Troll War II came across my 
desk. In that instance, we chose to break 
the program up into two smaller parts, 
published in two succeeding months. 
Well, the letters came in, and the bulk of 
them requested that, the next time we had 
a program of this size to publish, we print 
it all in one month rather than make peo- 
ple wait for the conclusion. "We're not 
afraid of all that typing!" they insisted. 

Also in those letters was another fre- 
quently asked question: "Why doesn't 
ANALOG Computing still run full-length 
assembly-language listings?" And to be 
honest, we really didn't have a good an- 
swer to that question. It seems that over 
the years we slowly got into the habit of 
not publishing those listings in order to 
find space for other material — and before 
we realized it, the full-length assembly list- 
ing had become a thing of the past. 

In recent months we've tried to reme- 
dy that. We've made a greater effort to get 
our authors to supply nicely formatted as- 
sembly code for use in the magazine — 
and when they supply it, we print it. Look- 
ing back over the years, it strikes me as 
odd that we stopped publishing those list- 
ings regularly, especially considering that 
we've never had anyone complain about 
their inclusion in the magazine. Au con- 
traire! It was this extra attention given to 
the advanced programmer that set ANA- 

A.N.A.L.O.G. COMPUTING' AUGUST 1988 



by Clayton Walnum 



'i • 'i 



. ■■ . 

; 



;>: 



■'■•'■■ " 



. 




LOG Computing apart from its compe- 
tition. 

Of course, you've undoubtedly realized 
by now that there's a reason for this little 
chat we're having. To put it in a nutshell, 
it's happened again. A program has fallen 
into our hands that we absolutely cannot 
ignore. 

By now, all ANALOG readers are 
familiar with the names Barry Kolbe and 
Bryan Schappel. In the past these two 
gentlemen have supplied some of the 
finest machine-language programs ever to 
appear in the pages of this magazine. 
Those programs include BBK Artist, The 



Robox Incident, TEDIT, The ANALOG Data- 
base and The Clash of Kings, to mention 
only a few. This issue we're proud to 
present, complete with its assembly- 
language listings, BCALC, a full-featured 
spreadsheet for your 8-bit Atari 
computer — written, of course, by those 
prolific machine-language wizards, Kolbe 
and Schappel. There's no need now for 
you to run out and spend $50 for that 
spreadsheet program you've been need- 
ing. BCALC will fit the bill quite nicely, 
thank you. 

And once you've finsished using 
BCALC to set up your home's or business' 
finances, don't forget to check out Colin 
Faller's zany Train Crazy, a truly arcade- 
quality game. And there's more! Joe 
McManus will get your nerves jangling 
with his fast-moving simulation, Crisis 
Center, where you get a chance to see how 
it feels to have hundreds of lives depend- 
ing on your quick thinking and careful 
decision making. Carey Furlong brings us 
Solar System Scaler, an Atari BASIC pro- 
gram that'll bring the universe right into 
your living room, scaled down to a size 
that even the feeble (galactically speaking) 
human mind can understand. 

Also in this issue, we start two new 
columns for those of you who want to 
learn more about your computers and 
how to program them. First on the agen- 
da is Robin Sherer's Master Memory Map, 
a complete tour of your Atari's innards 
brought to you over the course of the next 
few months, including complete 
documentation of even the most esoteric 
memory locations in your machines. And 
for those of you who've always wanted to 
write your own arcade games, but didn't 
know where to start, we've got Game De- 
sign Workshop, a column by Craig Patch- 
ett that'll take you, month by month, 
through the entire process of designing 
and writing a video game. 

We think this is an exciting issue, and 
we're sure you will too. As usual, we'd like 
to hear from you. Let us know how we're 
doing, and what we can do to better serve 
you. This is your magazine, and it's your 
input that'll keep it moving in the direc- 
tion it should go. 

And as always, thank you. 
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Train Crazy 

Join Oscar the Ostrich on the wild railroad 
romp on top of a speeding train. Look out for the tunnels! 
by Colin Faller 
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Solar System Scaler 

If you could reduce the earth to the size of a baseball and hold it in your hand, how far away ivoidd the sun 
be? How about the moon? This educational program answers these and many other questions. 

by Carey M. Furlong 
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Animation 

The art of computer animation made simple, 
including two methods for bringing your programs to life. 

by Ron Goodman 
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Crisis Center 

Car crashes, hotel fires, snipers, airplane hijackings, bank robberies and all manners of emergency conspire 
to put your abilities to the test in this nerve-racking simulation. 

by Joe McManus 

V 

Wordlock 

Having trouble keeping the riff-raff out of your private files? Lock 'em up tight with this machine-language utility. 

by Andy A. Lee 

V 
PrintScreen 

A Graphics O screen dump utility that'll print 
the contents of your screen from within most any program. 

by Justin E. Wilder 
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BCALC 

ANALOG Computing is 
proud to present a full-featured 
spreadsheet program 
for 8-bit Atari computers. 

by Barry Kolbe and Bryan Schappel 
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Barnyard Blaster (Atari Corp.) 

by Matthew J.W. Ratcliff 
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Panak Strikes 

Steve gives the old thumbs-up/thumbs-down test to 
Shiloh: Grant's Trial in the West (SSI) 
and Bridge 5.0 

(Artworx). 
by Steve Panak 



Editorial 

by Clayton Walnum 

v 

8-Bit Notes 

V 

Reader Comment 

V 

Master Memory Map 

by Robin Sherer 

V 

BASIC Editor II 

by Clayon Walnum 

ST Notes 

V 

Game Design Workshop 

by Craig Patchett 

V 
Database Delphi 

by Michael A. Banks 
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Permissions 

No portion of this magazine may be reproduced 
in any form without written permission from the 
publisher. Many programs are copyrighted and 
not public domain. 

Due, however, to many requests from Atari club 
libraries and bulletin-board systems, our new poli- 
cy allows club libraries or individually run BBSs 
to make certain programs from ANALOG 
Computing available during the month printed on 
that issue's cover. For example, software from the 
July issue can be made available July 1. 

This does not apply to programs which specifi- 
cally state that they are not public domain and, thus, 
are not for public distribution. 

In addition, any programs used must state that 
they are taken from ANALOG Computing Maga- 
zine. For more information, contact ANALOG 
Computing at (213) 858-7100, ext. 163. 

Subscriptions 

ANALOG Computing, P.O. Box 16927, North 
Hollywood, CA 91615; (818) 760-8983. Payable 
in U.S. funds only. U.S.: $28-one year, $54-two 
years, $76-three years. Foreign: Add $7 per year. 
For disk subscriptions, see the cards at the back 
of this issue. 

Authors 

When submitting articles and programs, both 
program listings and text should be provided in 
printed and magnetic form, if possible. Typed or 
printed text copy is mandatory, and should be in 
upper- and lowercase with double spacing. If a sub- 
mission is to be returned; please send a self- 
addressed, stamped envelope. 

For further information, write to ANALOG 
Computing, P.O. Box 1413-MO, Manchester, CT 
06040-1413. 
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Springboard Software, Inc. 
7808 Creekridge Circle 
Minneapolis, MN 55435 
(612) 944-3912 

AtariWriter 80 Rounds the Finish 
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SOUTHERN SOFTWARE 

205-956-0986 

24 HOUR PHONE 

CALL OR WRITE FOR FREE CATALOG 

ALL 8 BIT AND ST SOFTWARE IN STOCK 

CALL FOR PRICES AND LATEST TITLES 

SOFTWARE IN STOCK FOR OTHER COMPUTERS 

PRICES LISTED FOR MAIL ORDER ONLY - ADO 10* ON PHONE ORDERS 



ST COHPUTERS. 


CAUL 


CHIPMUNK 


29.95 


80 COL CARD 


79.95 


1060 DISK DRIVE 


239.95 


ATARI MRITER PLUS 


39.95 


COMPULSIVE COPIER 


29.95 


1060 W/HAPPT IDST 399.95 


BASIC CARTRIDGE 


19.95 


COPY II ST 


29.95 


130 If 


139.95 


BASIC IE 


49.95 


AH-301 MODEM 


49.95 


JF551 DISK DRIVE 


189.95 


BASIC AL 


39.95 


SI-212 MODEM 


89.95 


520 DISK DRIVES 


CALL 


SUPER ARCHIVER 


59.95 


SMK804 PRINTER 


189.95 


650 INTERFACE 


109.95 


BIT WRITER 


69.95 


1027 PRINTER 


124.95 


OK OMHIHOH 


59.95 


DOS 2.5 H/NANUAL 


9.95 


ADM121 LQ PRINTER 199.95 


ACCESSORIES 


CALL 


AL/RE POKER SUPPLY 27.95 


ATARI LAB ST KIT 


49.95 


APE FACE 


49.95 


1027 INK ROLLER 


4.97 


JOY STICK 


8.95 


AVATEA 1200 


79.95 


HAPPY ARCHIVER 


34.95 


LOGIKHRON CLOCK 


39.95 


AVATEA 2400 


179.95 


I/O CORO 


13.95 


MARK WILLIAMS C 


124.95 


CHIP/ARCHIVER 81C 


69.95 


I/O CORO 10 FT 


19.95 


MEGAMAI C 


139.95 


PRO BURNER 


179.95 


MAC/65 


64.95 


MODULA-2 


69.97 


E2 RAM 520 


169.95 


MAC/65 TOOL KIT 


27.95 


P.R. CONNECTION 


59.95 


HAPPV 1050 ENHANC 


119.95 


ACTION 


64.95 


WARP SPEED DOS XL 


24.95 


HAPPY 810 ENHANCE 


104.95 


ACTION TOOL KIT 


27.95 


PC BOARD DESIGNER 


169.95 


HAPPY CONTROIER 


39.95 


BASIC AL TOOL KIT 


27.95 


PROLOG 


69.95 


HARD DISK DRIVES 


CALL 


BASIC «E TOOL KIT 


27.95 


PUBLISH PARTNER 


119.95 


ICD MIO 1 MEG 


299.95 


PERSONAL PASCAL 


74.95 


SOUND DIGITIZER 


119.95 


ICO HID 256K 


199.95 


SPA RT ADOS TOOL KIT 24.95 


• WE HAVE COLOR RIBBONS • 


IE ADAPTER FOR MIO 19.95 


ST HOST ADAPTER 
SPARTS OOS CART 
OHNIVIEN IL/AE 


99.95 
69.95 
36.95 


FOR ALL PRINTERS 


CALL 


PRINTERS 


CALL 


• ATARI REPAIR PRICES • 


PRINTER CONNECT. 


39.95 


NEWELL 256K 


34.95 


ITEMS NOT LISTED 


CALL 


R-TIME CARTRIDGE 


49.95 


OMHIMON 400/600 


44.95 


1050 DISK DRIVE 


89.95 


RARRO U UPGRADE 


29.95 


ST COPY 


29.95 


130 AE 


69.95 


256K CHIP SET 


49.95 


NUMERIC KEYPAD 


39.95 


65 AE 


49.95 


RAMROO II 


39.95 


TOP DOS 1.5 PLUS 


29.95 


520 DISK DRIVE 


69.95 


LIGHT PEN 


69.95 


PRINT/MODEM CABLE 


13.95 


520 ST 


139.95 


U.S. DOUBLER 


29.95 


RAMCHARGER 


139.95 


850 INTERFACE 


49.95 


UPRINT INTERFACE 


59.95 


RAMCARD FOR 800 


129.95 


ATARI PRINTER 


69.95 


IL/IE BOS 


49.95 


SMART LINK MODEM 


189.95 


AL/AE/160 POW SUP 


12.95 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

ADO $5 FOR SHPPtNG. AND INSURANCE MOST ORDERS SHIPPED SAME 

DAY. FOREIGN ORDERS WELCOME WITH SUFFICENT POSTAGE 

INCLUDEO . ALABAMA RESIDENTS ADD 7% SALES TAX . ADO 6% FOR 

VISA. ADO $5 FOR ABMAL ADO $15 FOR OVERNIGHT SHIPMENT 

ALLOW THREE WEEKS FOR PERSONAL CHECKS 

SOUTHERN SOFTWARE 

1879 RUFFNER ROAD BIRMINGHAM. AL 35210 



MegaByte 

Computers and Electronics 

Call TOLL FREE 1-800-255-5786 ORDERS 
For any ing mriea If 71 3)338-2231 ONLY 

Pl«M« Call For Low Pr\ctt on Many 



109 W. Bay Area 
Webster. Texas — 
77S98 



Oth«r lt«m«;» 



GAMES 

DARK CASTLE 

27.97 

DUNGEON MASTER 

(IN STOCKI) 27.97 

F- IS STRIKE EAGLE 
24.87 
F-UGHT SIM II 
33.17 
GAUNTLET 
28.97 
GONE FISHIN 27.97 
MOEBIUS 38.97 

OIDS 23.97 

Police Que«t 29.97 

President Elect 

28.97 

KoadWar Europa 

25.87 

Ultima IV 38.97 

Wargune CouL Set 

33.87 



Applications 

Cad- 3D 242 

39J7 

Cyber Control 

43.97 

Cyber Paiat 

47.97 
Data Maaager 

Swift Calc 
Word Writer 

S2.97 

PC- Ditto 3.01 

74.93 

PubluLviuj: Partner 

62.97 

Supercharged 

Euy Draw 94.97 

Kuma 
Transputers 

mwOmirttUmttll 



GracJePIus 

(A COMIftlff »*ctii«* 

(jAktUbook tytiitu) 

$39.95 



Tvitbo ST 

tH\\R.»Cl»*tH\ 
SUPERCHARGE 



s 1fsfiTSTT«r 

16 MHZ!!! 
$249.95 



CUSTOMIZED 

Htni Disk* 
$499 ..a» r . 

ExitaNAl Flopped 
f l»».«JJ I 



DeaUk ItHQUluiES WelCOMEl 



IMDCJUMG TMTOIUtAT30W: 

rriM* ar* a«*)B«t la ataaaaa -ll-h*wl >MIh. Ul ««»■■ iMl.aa FOIL f*a*.ory aanaaly 
?«.*• tt(Ut.L> plaaaa a«a I.IM aala* laa. ftataraa aalj if fiv*.et U aaraatWa. 
FalM* MflHt a aaa* alaaa.aL. ■>!■»•• .« ».»t t** Tlaa *' auatarCara:. »l«a ia»ai 
ablapl-j la a*»u*a4* Maw* aaavaat. 
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A COMPUTER SOFTWARE SERVICES 
RO. BOX 17660, ROCHESTER, NY. 14617 
ATARI " PHONE ( 7/|6 l 467-9326 

JUST RELEASED ! 




$99.95 "SUPER ARCHIVER II"! 

(for ATARI 1050 drives) 

NOW! COPYS all EN HANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITER!; the 
ULTIMATE BACKUP/PROGRAMING device! Only $99.95 plus $4 S/H/l. 
NOTICE! If you already own aSUPER ARCHIVERl.you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required!). TUP 



$69.95 "SUPER ARCHIVER"!® 

(for ATARI 1050 drives) 



$69.95 



The new SUPER ARCHIVER, obsoletes all copying devices currently available 
tor the ATARI 1050! It eliminates the need for Batches. PDB files, Computer 
Hardware etc Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 

• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR-reads. writes, 
displays upto 35 sectors/track 



• TRUE DOUBLE DENSITY 

• ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 

• SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 

• TOGGLE HEX/DEC DISPLAY 

• SECTOR or TRACK TRACING 

• AUTOMATIC DIAGNOSTICS 

• DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



(short) 

BUILT-IN CUSTOM FORMATTER - upto 

40 sectors/track 

BUILT-IN DISASSEMBLER 

BUILT-IN MAPPER - upto 42 sectors/ 

track 

■ DISPLAYS/COPIES Double Density 
HEADERS 

■ AUTOMATIC FORMAT LENGTH 
CORRECTION 

■ SIMPLE INSTALLATION 



The SUPER ARCHIVER is so POWERFUL that the only programs we know that 
can't be copied are the newer ELECTRONIC ARTS andSYNFILE/SYNCALC (34 
FULL sectors/track). If you want it ALL. ... buy the "BIT-WRITER - ! also . . . then 
you'll be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discounts available call for info. 
PHONE Orders - MASTER CARD. VISA MAIL - Money Orders, Checks 



$79.95 



THE SUPER ARCHIVER 
"BIT-WRITER"! 



A 

ATARI 

$79.95 



The Super Archiver "BIT-WRITER"! is capable of duplicating even the "uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER 1 ! is capable of 
reproducing these and FUTURE protection schemes of non physically damaged 
disks. PLUG-IN circuit boards and 4simple solder connections. The SUPER ARCHIVER 
with "BIT-WRITER"! is the ultimate PROGRAMMING/COPYING device for Atari 1050's 
EXACT DUPLICATES of originals are made! Copies run on ANY drive. Must be used 
with Super Archiver. Only $79.95 plus $4 S/H/l. 



"ULTRA SPEED PLUS" 



$69.95 



$69.95 

Imagine a universal XL/XE Operaling System so easy to use that anyone can operate 
it instantly, yet so versatile and powerful that every Hacker, Programer and Ramdisk 
owner will wonder how they ever got along without it! Ultra Speed Plus puts 
unbelievable speed and convenience at your fingertips. Use ANY DOS to place 
an ULTRA SPEED format on your disks, boot any drive (1-9) upon power-up. format 
your RAMDISK in Double Density, activate a built-in 400/800 OS for software com- 
patibility, plus dozens of other features to numerous to mention! Below are just a 
FEW features you'll find in the amazing OS: 



• ULTRA Speed SIO for 

most modified drives 
i ULTRA Speed is toggledble 

■ Boot directly Irom RAMDISK 
. Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 

> Background colors adjustable 

> Reverse use of OPTION key 

■ Cold-storf without memory 
loss 

> Built in floppy disk configura- 
tion editor (1-9} 



■ Built In RAMDISK configura- 
tion editor (1-9) 

• RAMDISK exoctly duplicdtes 
flcppy drive so sector copy- 
ing and sector editing are 
now possible 

• Built in MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% increase of processing 
speed 

• Toggle internal BASIC 



• Rom resident disk loader 
program (MACH 10 menu) 

• DOUBLE DENSITY RAMDISK 
capable 

. Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems in 
one (XL/XE. 400/800. ULTRA 
SPEED PLUS) 



$29.95 



'XF551 ENHANCER!" 



$29.95 



The XF551 Atari drive is a fine product with one major flaw ... it writes to side TWO 
of your floppy disks BACKWARDS. This causes read/write incompatibility problems 
with all other single sided drives made for Atari such as Indus. Trak. Rana, Percom. 
Astra, Atari 1050. Atari 810, etc. Add the XF551 ENHANCERtothenewXF551 drive 
and your problems are over! This device will restore 100% compatibility while 
retaining original design qualities of Ataris' super new drive. The XF551 ENHANCER 
is a MUST for all XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 
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The Missing Touch 

I just received the May issue of 
ANALOG Computing, and I love the 
new cover design. The new logo is real- 
ly sharp and the photo is hilarious. I 
couldn't wait to flip open the magazine 
to see what other changes had been 
made. Imagine my confusion when I was 
greeted by the same old ANALOG. Now 
don't get me wrong. I don't mean to say 
there was anything very wrong with 
ANALOG'S old style. It's just that after 
reading the editorial in the April issue 
I was expecting some exciting new 
changes. So where are they? Did some- 
body quit right after coming up with the 
cover? Is this a case of beauty being only 
cover deep? Are you getting sick of all 
these silly questions? 

— Todd Rapherty 
Dormont, PA 

Silly questions? What silly questions? We 
can understand your confusion, and so are glad 
to take this space to tell you — and everyone else 
who is interested — something about the maga- 
zine's production. 
It takes a lot of time to design a magazine 

from the ground up. When ANALOG Com- 
puting went back into full production, there 
was enough work to keep us busy just getting 
the magazines out the door on time, without 
having to worry about a new design as well. 
To expedite the process of getting the maga- 
zines back into your mailbox, we used the 
material that had already been completed at 
the old offices. That's why the style looks so 

familiar. The only thing that was missing for 
those first issues (April and May) was the cover 

for May. Because we had to come up with a 
new cover anyway, we took the time to have 
it redesigned, taking us one step closer to that 
new look we promised you. 

Kangaroos and Computing 

I have never seen my kids so captivated 
as they are by the game Money Pouch in 
the May issue of ANALOG Computing. 
They play it for hours at a time. It has 
gotten to the point where I have to fight 
to get some time on the computer my- 
self! It's so rare to find an educational 
program that can teach while still allow- 
ing the children to have fun. I've always 
been an advocate of painless learning 
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(maybe I'm just basically lazy), and as a 
teacher, I've always tried to keep the in- 
terest level of my classes as high as pos- 
sible. Money Pouch really hits the mark 
as far as I'm concerned, sneaking the 
learning in underneath the fun. Thanks 
for a great magazine! —Louis Patten 
Ridgewood, NJ 

Our pleasure. Maybe it's time for you to con- 
sider a second computer, so the kids can have 
one of their own. Most families who own com- 
puters find that one just isn't enough — and 
the older your children get, the more that'll be 
true. 

Keyed for Help 

I just bought an Atari 130XE computer, 
and there's something I just can't figure 



out. One of the keys across the top of the 
computer is labeled HELP. Yet, 
whenever I push it, it does absolutely 
nothing. It doesn't matter what program 
I'm running or what I'm doing, the help 
key does nothing. All it adds to the com- 
puter is an extra key. Is there something 
wrong with my 130XE? 

— Deron Smith 
Russel, KS 

No, there's probably nothing wrong with your 
computer. The HELP key on the 130XE must 
be accessed from with-in a program to make it 
useful,— just like the START, SELECT and OP- 
TION keys. If the programs you're using don't 
take advantage of it, the HELP key xuon't do any- 
thing. Unfortunately, very few companies have 
decided to incorporate the use of the HELP key 
into their programs; probably because the older 
Atari computers don't include the key. That real- 
ly isn't so much of an issue now, since very few 
people still use the old Atari 400s and 800s. 
But when most of the programs that are availa- 
ble today for the Atari were being devel-oped us- 
ing the HELP key would have made tlie program 
somewhat incompatible with the older machines. 
There are ways around that incompatibility, of 
course, but it seems that most developers took the 
easy way out and just ignored it. 

Seeing is Believing 

I can't believe it! The other day I actual- 
ly saw a copy of ANALOG Computing 
in a supermarket drugstore! When you 
folks said distribution under the new 
owners would improve, you weren't kid- 
ding. I've always had a hard time find- 
ing the magazine, and had to keep 
checking the local B. Dalton's to get a 
copy before they were sold out. It's go- 
ing to be great to be able to buy my 
favorite Atari magazine so close to home. 
By the way, they also had ST-Log. — 

Richard Hall 
Watertown, NY 

Yep, we're very serious about improving our 
distribution, as well as improving subscription 
and customer support. As time marches on 
ANALOG Computing will be available in 
more and more locations across the country. 

One quick question: Why didn't you just sub- 
scribe to the magazine instead of trying to hunt 
it down every month? 
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BARNYARD BLASTER 

Atari Corp. 

RO. Box 61657 

Sunnyvale, CA 94088 

Game Cartridge— for all Atari 8-bit 

computers equipped with the XG-I light gun 

$29.95 

by Matthew J.W. Ratcliff 



*L 



lou and Gramps have just purchased 
a small farm that is being overrun by var- 
mints. With your trusty XG-1 Atari light 
gun (similar to a .357 Magnum, but with 
a little less kick), you must blast all the 
critters in sight. 

Grandpa first sets up some bottles and 
cans on the back fence to get you warmed 
up. As they are shot, the bottles explode 
in a shower of glass, while the cans 
ricochet high into the air — both excellent 
effects. Keep a sharp eye out for the 
gopher. He can pop up in the back- 
ground at the end of any shooting round. 
He's been tearing up Grandpa's property; 
a tough critter to zap for bonus points. 

At the end of each round, if your shoot- 
ing percentage is high enough, you pro- 
ceed to the bonus round. Here Grandpa 
is brave (stupid?) enough to toss spinning 
bottles into the air, for additional shoot- 
ing practice. You score the most for each 
bottle (100 points) by exploding them 
over Grandpa's head. Don't accidentally 
hit him or you'll lose all your bonus 
points. 

Out in the cornfield — the next 
round — are some watermelons and 
pumpkins that you must blast. Grandpa 
doesn't even mind that you shoot them! 
Once they're splatted all over the field, 
you must fend off blackbirds and fluffy 
white rabbits. A good shootist will get to 




shoot bottles over Gramps' head and then 
move on to the barn scene. 

There are a whole mess of mice and 
sparrows loose in the barn. Those little 
critters are tough to zap, being small and 
fast. You'll have to contend with more rab- 
bits and hoot owls too. Apparently Grand- 
pa isn't much interested in his farmyard 
animals, since he doesn't mind if you blast 
the chickens and geese that run through 
the barn as well. 

Barnyard Blaster presents these three 
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I love the 
sound effects— especially 

for splatting the 
melons. 

scenes — the barnyard fence, cornfield, 
and barn — alternating with Grandpa's bo- 
nus round. If you're a good sniper, you 
may make it though all 36 screens and fin- 
ish the game As you progress through the 
levels, you have fewer bullets per round 
and must maintain a progressively higher 
shooting accuracy. At the end of the game 
you're given a final rating from "Total 
Dud" through "Terminator" to the ulti- 
mate Blaster. 

I have found Barnyard Blaster to be far 
more sophisticated and entertaining than 
the Bug Hunt game which comes with the 
Atari XEGS. The screens are bright and 
colorful, with well-executed graphics. I 
love the sound effects too, especially for 
splatting the melons. The author, Jim 
Zalewski, has paid great attention to de- 
tail. On any of the game screens, take aim 
at objects that you're not intended to 
shoot, blast and listen. Your bullets will 
ping off the weather vane or the tin 
washtub inside the barn. They will splash 
in the water bucket or thud into the 
scarecrow out in the cornfield. If you're 
looking for a good light-gun game for 
your system, Barnyard Blaster is the one. 
It's the only one actually, but it is quite 
good. I think we can expect more great 
light-gun applications from Jim Zalewski 
and K-Byte, the people who brought us 
such classics as K-Razy Shootout. 

1 
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by Colin Faller 

disk as TRAIN2.BAS. 



r elcome to Train Crazy, a game thai 
will have you hopping mad. Your charac- 
ter is Oscar the Ostrich. Oscar is not only 
crazy, but train crazy, as you will soon 
find out. Oscar prefers the fresh air and 
likes to travel on top of the train. No 
problem, of course, until the train comes 
to a tunnel and Oscar has to run for his 
life! What's worse is that the London rail- 
way company doesn't like birds traveling 
on lop of their trains, and so have hung 
several chains from the overhead wires 
to deter the "roof riders." They have also 
hung up sonic tempting diamonds in the 
hopes that Oscar will jump up and crack 
his head. But Oscar is smarter than that 
and can often grab the diamonds for 
himself. 

To help Oscar survive you must duck 
under the chains and jump up to collect 
the diamonds, as well as jump between 
carriages and avoid the tunnel. The 
higher the level, the more obstacles there 
ai c. You will find it harder to get the di- 
amonds as you progress. At the end of 
each level. Oscar will jump off the train, 
and your score will be displayed. You 
ill then stari the next level or, if you 

,'c lost a life, restart the existing level. 
Iscar has five lives each game. 

lluii- are four ways to lose a life: 1) 
by getting knocked off the train in the 
tunnel, 2) by hitting one of the obstacles, 
3) by running out of energy and 4) by 
jumping too soon for the diamonds and 
knocking yourself out. 

Typing it in 

First type Listing 1, using Basic Editor 
11 to check your typing, and then save the 
file to disk as TRAINLBAS. Now type 
lasting 2 ((becking it with Basic Editor 
11, of course), and then save the file to 



Playing the game 

The game is loaded in two parts. Part 
1 loads the character set and scrolling 
routine and draws the train. It'll take 
about :?;i seconds. When Part I is 
finished, it'll load Part 2 automatically. 

After a few more seconds of initiali- 
zation, you will hear the train whistle and 
be ready to play. Use a joystick in Port 
1. Press either the fire button or the 
START key to begin. 

Moving the joystick up will cause Os- 
car to jump up to catch the diamonds, 
jump over obstacles or jump from carri- 
age to carriage. You must be careful not 
to jump too soon or you will hit the ob- 
jects above the diamonds and lose a life. 
Moving the joystick down makes Oscar 
duck to avoid the hanging chains. 

Each lime you press the fire button, 
Oscar will move forward, If you take. 
your finger off, he will move back with 
the train. If you don't: keep him moving, 
he will go into the tunnel and lose a life. 

When you first start the game, you are 
given 2<S energy units, but these decrease 
as the game progresses. Each time you 
gel a diamond, you get 200 points and 
an extra three energy units; so you must 
collect diamonds to complete the game, 
f.aih diamond collected will be dis- 
played at the lop of the screen. 

When the game is over, you'll be rat- 
ed according to your score as follows: 
TRY AGAIN — less than 4,000 points, 
GOOD — 4,000 to 9,999 points, 
GREAT — 10,000 to 14,999 points, 
EXCELLENT — over 15,000 points. 

To play again press either the START 
key or SYSTEM RESET. 

My highest score to date is 16,455 in 
ten levels. Can you do better? 

continued on page 74 
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ave you ever been sitting in your 
living room watching the evening 
news and heard something like, 
"Voyager II just passed by the 
planet Uranus, almost two billion miles from 
Earth," and looked up at your 12-inch globe 
on the bookshelf and wondered just what that 
meant? Do you have a handle on what two 
billion miles from Earth really means? 



easily dojusl t li;it. Willi il, mathematical- 
ly .scaled models of die solar syslem are 

constructed and tables generated thai 
show die relative sizes and distances o) the 

sun, planets and nearest star system. All 
values are determined by liser defined 



)| Measure (DOM) 
v die user and can 
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by Carey M. Furlong 



Or how 



only 400,000 miles away?" Did you know 
dial this passage is comparable in size to 
a microbe passing 50 feel from a basket- 
ball (actually pretty close, astronomically 
speaking), and thai on ibis scale, the 
moon is about die si/e of a baseball and 



is still 20 leel cl( 

the microbe? tic 

from "only 100 

I lave you evei 

live sizes and c 



Now we know the 
diameter of the sun in 
feet when the Earth is 
12 inches in diameter. 



gotten that 



ilar syslem 



Or have you ever tried I 
year? Most ol us have 
nearest star, Alpha Cent 
light-years away, which 



joks like as a unit? 
o imagine a light- 
2 heard that the 



t, 1 



ss you're real- 



ing to mean much beyond a doggone 
incomprehensible whale oi a long ways 



system are 



type in the program 



Whal I'm gelling ai through all this is 
that il you're like me, sizes and distances 
given in thousands, millions, billions and 
trillions oi miles don't go very far in 
providing a palpable leel for the solar sys- 
lem or its relation lo its nearest neighbor. 
Bui if you could turn a shrinking ray on 
die solar syslem and reduce il down lo an 

understandable size (e.g., to a diameter of 

one mile, 100 leel or even the size ol your 
living room), and then measure how far 
apart and how big everything is, you could 
gain a more realistic understanding of its 

true dimensions. 

Ihe menu-driven BASIC program 



your work with liasic f.c 



options 



There are five 



JUN DIAMETER cnsf.D Ti 



"E" EARTH Dlf 



JED TABLES 



COLOR SYSTEM DIAMETER BASED 



'1.2" 1.2-INCH EARTH QLOBE DISTANCE 
CONVERSIONS 



'993" END PROI 
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Lyco Computer 

Marketing & Consultants 



Lyco Means Total Service. 



Monitors 



AATARI' 




Mark "Mac" Bowser, Sales Manager 

I would personally like to thank all of our past customers for helping to 
make Lyco Computer one of the largest mall order companies and a 
leader In the industry. Also, I would like to extend my personal invitation to 
all computer enthusiasts who have not experienced the services that we pro- 
vide. Please call our trained sales staff at our toll-free number to inquire 
about our diverse product line and weekly specials. 

First and foremost our philosophy Is to keep abreast of the changing 
market so that we can provide you with not only factory-fresh merchandise 
but also the newest models offered by the manufacturers at the absolute best 
possible prices. We offer the widest selection of computer hardware, software 
and accessories. 

Feel free to call Lyco It you want to know more about a particular Item. I 
can't stress enough that our toll-free number is not just for orders. Many 
companies have a toll-free number for ordering, but if you just want to ask a 
question about a product, you have to make a toll call. Not at Lyco. Our 
trained sales staff is knowledgeable about all the products we stock and is 
happy to answer any questions you may have. We will do our best to make 
sure that the product you select will fit your application. We also have Satur- 
day hours — one more reason to call us for all your computer needs. 

Once you've placed your order with Lyco, we don't forget about you. 
Our friendly, professional customer service representatives will find answers 
to your questions about the status of an order, warranties, product availabili- 
ty, or prices. 

Lyco Computer stocks a multlmlllon dollar Inventory of factory-fresh 
merchandise. Chances are we have exactly what you want right in our ware- 
house. And that means you'll gel It fast. In fact, orders are normally shipped 
within 24 hours. Free shipping on prepaid orders over $50, and there Is no 
deposit required on C.O.D. orders. Air freight or UPS Blue/Red Label shipping 
l» available, too. And all products carry the lull manufacturers' warranties. 

I can't see why anyone would shop anywhere else. Selection from our huge 
in-stock inventory, best price, service that can't be beat— we've got it all here 
at Lyco Computer. 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 

New PA Wats: 1-800-233-8760 

Outside Continental .US Call: 1-717-494-1030 

Hours: 9AM to 8PM, Mon. - Thurs. 
9AM to 6PM, Friday — 10AM to 6PM, Saturday 

For Customer Service, call 1-717-494-1670, 

9AM to 5PM, Mon. - Fri. 

Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 

Rlak-Frae Policy: * full manufacturers' warranties • no sales tax outside I 

• prices show 4% cash discount; add 4% for credit cards • APO, FPO, 
international: add $5 plus 3% for priority • 4-week clearance on personal c 

• we check tor credit card theft • compatability not guaranteed • return 
authorization required • price/availability subject to change • Prepaid 

orders under $50 in con., U.S. add $3.00. 



Thornton: 

230 Amber TTL/12" $79.95 

4120 CGA $219.95 

4160 CGA $254.95 

4460 EGA $349.95 

GB 200 Super Card $184.95 

4570 SCALL 

Magnavox: 

BM7652 $79.95 

BM7622 $79.95 

7BM-613 $74.95 

7BM-623 $79.95 

CM8502 $199.95 

CM8505 $209.95 

CM8562 $239.95 

CM8762 $239.95 

8CM-5I5 $249.95 

Blue Chip: 

BCM 12" Green TTL $64.95 

BCM 12" Amber TTL $69.95 

NEC: 

Multisync II $599.95 

ATI Technologies: 

Graphics solution $129.95 

EGA Wonder $199.95 

VIP $299.95 



Modems 



Avatex: 

1200e $69.95 

1200i PC Card $69.95 

1200hc Modem $89.95 

2400 $179.95 

2400i PC Card $169.95 

Hayes: 

Smartmodem 300 $149.95 

imartmodem 1200 $285.95 

;martmodem 2400 $425.95 

Smarteam 

1200 Baud Modem 



Hayes Compatitx* 



Access: 

Triple Pack $11.95 

Leader Board Pack $14.95 

Actlvlslon: 

Music Studio $19.95 

Solid Gold Vol.#1 $10.95 

Batteries Included: 

Paperclip 80 Col $31.95 

Broderbund: 

Print Shop $25.49 

Print Shop Compan $22.95 

Graphic Lib. I, II, III $13.49 

Bank St. Writer $27.95 

Electronic Arts: 

Pinball Con Set $8.95 

Lords of Conquest $8.95 

Starfleet I $32.95 

Chess Master 2000 $25.95 

Music Con Set $8.95 

Super Boulderdash $8.95 

One on One $8.95 

Firebird: 

The Pawn $22.95 

Microleague: 

Microleag. Baseball $22.95 

General Manager $16.95 

Stat Disk $13.95 

87 Team Disk $13.95 

Mlcroprose: 

Conflict in Vietnam $22.95 

F-15 Strike Eagle $19.95 

Kennedy Approach $13.95 

Silent Service $19.95 

Top Gunner $13.95 

Strategic Simulations: 

Battle of Antetiem $28.95 

Phantasie $22.95 

Wargame Construe $16.95 

Wizards Crown $22.95 

Phantasie II $22.95 

Shiloh $22.95 

Eternal Dagger $22.95 

Subloglc: 

Flight Simulator II $31.49 



AATARI $M Joysticks 




Access: 

Leader Board $22.95 

Tournament #1 $11.95 

10th Frame $22.95 

Actlvlslon: 

Champion. Baseball .... $22.95 

Champion. Basketball . $22.95 

Championship Golf $New 

GFL Football $22.95 



Microleague: 

Microleague Baseball .. $33.95 

General Manager $16.95 

Wrestling $25.95 

Microprose: 

Silent Service $22.95 

F-15 Strike Eagle $24.95 

Gunship $28.95 

Strategic Simulations: 

Phantasie $22.95 

Phantasie II $22.95 

Road War 2000 $22.95 

Colonial Conquest $22.95 

Subloglc: 

Flight Simulator II $31.49 

Scenery Disk $14.95 

Timeworks: 

Wordwriter ST $44.95 

Partner ST $39.95 

Data Manager ST $44.95 

Unison World: 

Art Gallery 1 or 2 $14.95 

Print Master $19.95 

Fonts & Borders $17.95 

Music Studio $27.95 

Bureaucracy $22.95 

Electronic Arts: 

Arctic Fox $25.95 

Empire $32.95 

Starfleet I $32.95 

Chess Master 2000 $25.95 

Gridiron $32.95 

Epyx: 

Sub Battle Simulator ... $22.95 

Worid Games $22.95 

Wrestling $22.95 

Winter Games $11.95 

Firebird: 

Pawn $25.95 

Stargiider $25.95 

Golden Path $25.95 

Guild of Thieves $25.95 

Tracker $25.95 

Tac3 $9.95 

Tac2 $10.95 

Tac5 $12.95 

Tac 1 + IBM/AP $26.95 

Economy $5.95 

Slik Stick $6.95 

Black Max $10.95 

Boss $11.99 

3-Way $19.99 



1-800-233-8760 
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• 144 cps Draft 

• 36 cps NLQ 

• EZ Operation Front 



NX-1 000 



Panel Control 






$179 95 ir 



SEIKOSHA 
Sp 180Ai 

i 1 00 cps draft 
• 20 cps NLQ 



Panasonic 

1091 Model II 

192 cps Draft 
32 cps NLQ 



$129 



95. 



$199 



95 



PRINTERS 



-IL, 



NX-1000 $179.95 

NX-1000C $179.95 

NX-1000 Color $225.95 

NX-1000C Color $229.95 

NX-15 $309.95 

NR-10 $339 95 

NR-15 $439.95 

NB-15 24 Pin $699.95 

NB24-10 24 Pin $425.95 

NB24-15 24 Pin $579.95 

Laser 8 $CALL 

BROTHER 

M1109 $195.95 

M1409 $299.95 

M1509 $335.95 

M1709 $475.95 

Twinwriler 6 Dot & Daisy . $899.95 

M1724L $599.95 

HB20 $339.95 

HR40 $569.95 

HR60 $709.95 



SEIKOSHA 

SP 180Ai $129.95 

SP 180VC $129.95 

SP 1000VC $139.95 

SP 1000AP $169.95 

SP 1200VC $155.95 

SP 1200Ai $165.95 

SP1200ASRS232 $165.95 

SL 80AI ^$299.95 

MP1300AI $269.95 

MP5300AI $399.95 

MP5420FA $995.95 

SP Series Ribbon $7.95 

SK3000 Al $339.95 

SK3005 Ai $419.95 

SPB 10 $CALL 

SL 130Ai $599.95 



Toshiba 

321SL $489.95 

341 SL $659.95 

P351 Model II $899.95 

351 SX 400 cps $1019.95 



EPSON 

LX800 $199 95 

FX86E $279.95 

FX286E $424.95 

EX800 $399.95 

LQ500 $339 95 

LaiOOOw/Tractor $549.95 

LQ2500 $819.95 

GQ3500 $LOW 

LQ850 $525.95 

LQ1050 $715.95 

OKIPATA 

Okimale 20 $119 

Okimate 20 w/cart $179.95 

120 $189.95 

180 $219.95 

182 $209.95 

182+ $225.95 

183 $249.95 

192 f $339.95 

193+ $449.95 

292 w/inlerface $449.95 

293 w/inlerface $585.95 

294 w/inlerface $819.95 

393 $955.95 



Panasonic 

1080i Model II $179.95 

1091i Model II $199.95 

1092i $319.95 

1592 $409.95 

1595 $459.95 

3131 $299.95 

3151 $479.95 

KXP 4450 Laser $CALL 

1524 24 Pin $559.95 

Fax Partner $589.95 



^CITIZEN 

120 D $169.95 

180 D S189.95 

MSP-10 $259.95 

MSP-40 $309.95 

MSP-15 $349.95 

MSP-50 $399.95 

MSP-45 $459.95 

MSP-55 S539.95 

Premiere 35 S499.95 

Tribute 224 $649.95 

Tribute 124 $469.95 



AATARI 

520 ST Computer 



Built-in 

Drive 

Thomson 

4120 

Monitor 



$729 



95 



AATARI 

1040 ST 
Color System 



$955 



(THOMSON 



95 



A ATARI HARDWARE 

520 ST FM Mono $675.95 

520 ST FM Color $729.95 

1040 ST Mono $739.95 

1040 ST Color $955.95 

130XE Computer $135.95 

SX551 Drive $174.95 

SF 314 Disk Drive $219.95 

Indus GT Atari Drive $169.95 

SHD 204 20 MEG Drive $579.95 

XM301 Modem $42.95 

SX212 Modem $89.95 

GTS 100 (3.5" DSDD ST) $195.95 

GTS 1000 5V.. DSDD ST $CALL 



Attention Educational 
Institutions: 

If you are not currently 

using our educational 

service program, please 

call our representatives 

for details. 



520 ST-FM AATARI* 

Monochrome 
System 



$675 

Internal 

drive 

included 



95 



A 



AATARI 

1040 

Monochrome 

System 



$789 



95 




by Robin Sherer 




What is a memory location? 



ood question! Your Atari has 
many "places" within it that can 
contain numbers. These places 
, we call memory cells, locations 
or addresses. You may use any of these words 
to mean the same thing, but "address" is the 
more formal term that you will hear computer 
programmers using. Since the computer can 
remember the numbers in each of these 
places, it is common to call them the com- 
puter's "memory." Memory is like many blank 
pages of paper. Each page can hold only 256 
numbers, and we can have up to 256 of these 
pages. 



So where docs lliis leave its? Well, 25(i us 65586 locations loial thai ran he in 
icalions per page times 256 pages gives your computer. Computers count in 
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' 1MB 



My grandmother once 

told me, "Do yourself a 

favor, buy the large 

economy size. You'll 

need it." 



K! 



livj 

tit' 



A.N.A.LO.G. COMPUTING' AUGUST 1988 





We encounter another 

small problem when we 

mess with memory, 

Some memory 

addresses will allow us 

to read what is there, 

but will not allow us to 

write to them, 
write to thern. 
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terms of something called a "K." For rea- 
sons beyond my control, one K of 
memory is actually 1024 locations. Why? 
I'll explain all in a few pages. For now di- 
vide 65536 by 1024 to get a possible 
memory size for the Atari of 64K. 

The Atari is capable of using 64K of 
memory. (The XE computers use some- 
thing called "Bank Switching" to get 
around this limit.) The factory gives you 
16K ROM and 64K RAM when you buy 
the computer (we'll explain ROM and 
RAM later), but there is a catch (of 
course). A lot of memory that comes with 
the Atari is already filled up with num- 
bers that tell the computer how to run. 
The blank area available for you to use 
is a lot less than you're led to expect. If 
you want more memory, you have to go 
down to your friendly dealer and buy it. 
My grandmother once told me, "Do your- 
self a favor, buy the large economy size. 
You'll need it." She was talking about soap, 
but her wisdom applies to computers as 
well. 

Now that you understand how much 
memory you have, let's talk about it a lit- 
tle. Each memory address can hold num- 
bers from to 255. Computers start 
counting at because "nothing" is a very 
valid piece of information. I certainly 
worry when my wallet has "0" in it! Let's 
learn how computers count. 

Bits and bytes 

A "byte" is really not complicated at all. 
It is simply a group of eight "bits." When 
eight bits are structured into a byte, each 
of those bits has special significance. You 
look puzzled! What, you say, is a bit? 

A bit is the smallest piece of informa- 
tion that a computer can deal with. To 
help understand how bits are used by the 
computer, it may help to imagine the 
microprocessor as a bus station. This bus 
station is on a single-lane road. That 
means a bus can only travel in one direc- 
tion at a time as there is not enough room 
for two buses to pass each other. There- 
fore, a bus may either be arriving at the 
station or departing. The microprocessor, 
or bus station, can schedule its bus with 
a signal light that says "I am accepting ar- 
rivals" or "I am sending departures." 

In fact, in real computer hardware ar- 
chitecture, the wires that carry informa- 
tion to and from a microprocessor are 
called the "data bus." We don't need eight 
separate input and eight separate output 
wires because, like the single-lane road 
connected to the bus station, the wires are 
bi-directional. In other words, informa- 
tion can either be arriving (input) or 
continued on page 20 
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ALPHA SYSTEMS is constants innovating to provide more power 

lor your 8-brt Ataris 



Special OFFER 

The Alpha Systems HACK PACK contains all our 

tinesl products tor making Back-up copies, 

Analyzing, Understanding and Protecting your 

Atari programs. It comes complete with Atari 

Protection Techniques (Book and Disk I), Advanced Protection Techniques (Book and Disk II), The 

Chipmunk, The Scanalyzer. The Impersonator and Disk Pack 1 000. Worth over S 1 50. Get them oil 

tor the special price ot Just $99.95 

Atari Software Protection Techniques Vol I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today. They 
guide you through the methods used to create the protection as well as the copying techniques to gel 
around them. They include intormation on Phreaking • Hacking • On-line security • Black boxes ■ Self- 
destructing programs • Pirate bulletin board systems • Logic bombs • New piracy laws • Hardware 
data keys • Weak sectoring (Phantom, Fuzzy and unstable sectors) • Overfilled tracks • CRC errors 
Bank Select cartridges and MUCH, MUCH MORE. The disks include automatic program protectors, 
Protection Scanners, directory hiding and more. 
BOOK I and DISK I $24.95 

BOOK II (Advanced protection) and DISK II $24.95 
Special Offer, Order both sets tor Only $39.95 

CHIPMUNK 

Automatic Disk Back-Up System. Make perfectly running unprotected back-up copies of hundreds ot 
the most popular Atari programs. Chipmunk's sophisticated programming Automatically finds and 
REMOVES copy protection from most Atari programs. Back-up even heavily protected programs with 
ease. Finally, a back-up system that needs no special hardware or skills. 
(It you need a lull list of what Chipmunk copies, call or write tor our tree catalog) $34.95 



\\ JM J I'H •} I M -TftAVJ d •]<<£* PARROT II 

\W _1 l.1 I»U •] 1 s A W A 1 IT J Vl^An All New Parrol sound c 

B^BBaiwi^rar^^m^^rWvV^^B^B^BiMHHnVBMBMnBmHB^VIHHHnnVl^MViHinW^BHB^BBBH *" cnrvhiolifTitoH nour hnrHiirj-irv; 



Scanalyzer Automatically scan & analyze commercial programs. Unlock programming secrets and 
learn from the masters $29.95 

Impersonator Cartridge to Disk back up system. Create running back-up copies of any corlridge 

(up,tot6K) $29.95 



"^ CHEAT 

Get more from your games with CHEAT Tired ot spending days trying to beat a game? Tired ot getting 
stuck just when you need another lite? Cheat is on innovative new product that gives you Ihe chance 
you need to beat your favorite games. Cheat works with hundreds of Atari games to give you 
unlimited lives or power. End Ihe trustration and get hours more enjoyment trom your games (Call or 
write Alpha Systems tor our free catalog with o lull lis! of the programs that work with Cheat) ONIY $24.95 

BASIC TURBOCHARGER 

NOW lor the tirst lime a BASIC programmer can get the power, flexibility and incredible speed ol 
machine language BASIC TURBOCHARGER is a book and disk package that contains over 1 50 
ready to use machine language routines. Complete instructions show how lo add Ihem to your own 
BASIC programs to get Ihese features and more: • Smooth Scrolling • Player/Missile control • Load & 
Save Picture files ■ Sorting and Searching • Special Effects Graphics • Incredible Speed • Much. Much 
More • Over 1 50 programs. You've heard of Ihe power ot Assembler, now harness it lor your own 
needs 524 95 ^^^^^_^^^^__^^^^^^^_ 

" 216-374-7469 




digitizer for your Atari. Parrot II is 
sophisticated new hardware device that plugs into your joystick 
port. Parrot II has two inputs. One for microphone and one tor a 
powered source such as a tape player, radio or Compact Disk. 
The Powerful Parrot II software lets you record sounds into your computer ond play them back on any 
Atari. Parrot II turns your computers keyboard into a musical instrument with nine different sounds 
covering three octaves each. The sounds can be anything, dogs bork, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot II lets you modify the sounds on a graphic display to create brand new sounds and special 
effects. Best of all, the sounds and voices can be put into your own programs that can be used on 
any standard Atari. Explore the world of digital sound and music. ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrot $4.95 
PARROT II Demo Disk (Does not require Parrot to run) $5.00 

-rfrff^l ana u nnrvcB ° ,osl Poced. multi-player Irivia game that mixes questions 

W^M rUK-N-KWWIVEK wmi rea | son g S (digitized 

*\«ifh Panot). Be the first to identity the songs and answer the music trivia questions. Pop-N-Rocker 
comes with three data disks ond lets you add new questions so it will never get old. You can use a 
Parrot Sound digitizer to add new songs too! Use any kind of music from Rock to Classical to 
Nursery Rhymes. A new concept in entertainment and a perfect add-on foi Parrot. $24.95 

COMPUTEREYES & MAGNIPRINT 11 + 

Turn your computer into a digital portrait studio. This complete package lets I 

you capture, save & print digital images from your Video Camera, VCR 

or TV. COMPUTEREYES hardware plugs directly into your joystick ports for 

easy use. Print your picture on a 6 foot poster $119.95 

ComputerEyes camera system 

Comes complete with everything above, plus a black and white video 1 - 

camera and connecting cable. $329.95 atowit'tt 

Graphics 9 Software - Add a new dimension to your COMPUTEREYES giant WALL SIZED POSTERS. 

pictures - captures images in 1 6 shades ot grey. $12.00 

Magniprint II + 

Easily Ihe mosl powerful print program available today. Print graphics from almost any formal in 

hundreds of shapes, sizes, and shades. Supports color printing and lets you create giant posters. 

Magniprint II + lets you stretch and squeeze, invert, add texl, adjust shading and much more. 

Works wilh EPSON, NEC. Citoh, Panasonic, Gemini, Star, XMM801, and compatible printers. (850 

interface or equivalent required). $24.95 

Graphics Transformer 

Now you can combine the most powerful features ot all your graphics programs. Creole print shop 

icons Irom Koala pad picture, from a photo digitized wilh ComputerEyes, or any picture file 

Graphics Transformer lets you Shrink, Enlarge and Merge pictures lor unequaled flexibility. $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally an alternative to buying expensive computer add-ons. Your Atari Comes Alive 
shows you how to built them yourself. This How-To' book and disk package gives you complete 
step by step instructions and programs needed to buill and control these exciting devices and MORE: 
• Lighl Pen • Light & Motor Controllers -Alarm Systems • Voice Recognition • Environmental Sensors 
•Data Decoders • More than 1 50 pages, lfour Atari Comes Alive $24.95 




SYSTEMS 



VISA & MASTERCARD, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



ALPHA SYSTEMS 1012 SKYIAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 games 
on o disk) Free wilh any order of 3 or more items. Include S3. 00 shp & hdlg (US Canada) Ohio res ddd 5 (2% soles tax. 
Foreign orders add S8. 00 shp& hldg. Call or write (or Iree catalog. Customer Service Line (216)467-5665 M-F 9-3. 
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B&C 



ComputerVisions 



3257 Kifer Road 

Santa Clara, CA 95051 

(408)749-1003 



A 



STORE HOURS 
TUE- FRI 10am- 6pm 

SAT - 10am - 5pm 
CLOSED SUN- MON 



SZJJPER SF>EC IAES 

RECONDITIONED ATARI MERCHANDISE 

All merchandise has been tested and reconditioned and is in like-new condition except where noted by the letter "B" after the price. The "B" price indicates 
product may have scratches or other superficial surface marks. 30 day warranty. 



ATARI 
TRAKBALL 

$9.95 a 

spice up the 
action in your 
arcade games! 



ATARI 

SPACE AGE 

JOYSTICK 

$5.00 A 

GUN TRIGGER ACTION! 



STANDARD 

ATARI 
JOYSTICK I 

STOCK UP ON A FEW 
SPARES 



1020 COLOR 

PLOTTER/PRINTER 
$29.95 A 

40 Columns wide 

Includes paper and 

color pen set 



$19.95 each 

(on cartridge) 



Ball Blazer 
Blue Max 
Hardball 
Pole Position 
Millipede 
Ms. Pac Man 



Battle Zone 
Fight Night 
Jungle Hunt 
Galaxian 
Dig Dug 
Final Legacy 



400 (16K) 

COMPUTER 

$29.95 a 

48K UPGRADE KIT 

$25.00 



600XL(16K) 

COMPUTER 

$49.95 A 

64K UPGRADES 

$19.95 - solder in 
$34.95 - plug in 



1030 
MODEM 

WITH 

EXPRESS 
$29.95 A 

GET ON-LINE TODAY! 



$5.00 each 

(on cartridge) 

Basic Rev. A 

Donkey Kong 

Missile Command 

Pac Man 

Star Raiders 

Music Composer 



Fl 



800 (48K) 

COMPUTER 

$79.95 A 

INCL. BASIC CART & 

MANUAL 

[ IIHHllflllllllHTn I 



NUMERIC 
KEY PAD 

$7.95 A 

INCL. HANDLER DISK USE 

WITH THE BOOKKEEPER 

AND BASIC 



850 
INTERFACE 

$89.95 A 

LIMITED 
SUPPLY 



810 

DISK DRIVE 
$120.00 A 

INCLUDES POWER 

SUPPLY, I/O CABLE 

&DOS2 



ATARI 
BOOKKEEPER 
$14.95 - no box 

($19.95 WITH RECON KEYPAD) 

$24.95 -IN BOX 

($29.95 WITH RECON KEYPAD) 



DISKETTES 

AS LOW AS 
20 CENTS 

10 FOR $4.00 

100 FOR $29.00 

1000 FOR $200 

MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 




SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 
for disk drive. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders 
may be pre-paid with money order, cashier check, or personal cheek. Personal checks are held for three weeks before order is processed. 
C.O.D orders are shipped via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid 
with cashier check or money order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. Phone 
orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. Write or call 
for free catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 

CIRCLE #107 ON READER SERVICE CARD. 
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departing (output), but not both. The 
microprocessor also has a signal of its 
own that determines whether it will 
receive (input) or send (output) infor- 
mation. 

Let's take a closer look at that bus. It 
is known as the Byte Express, has eight 
seats and always carries eight passengers. 
Those passengers are little messengers 
known as bits, and, as a group, they are 
known as a byte. These messengers, or 
bits, are rather moody. They are either 
turned "on" or they are turned "off That 
is called "binary" as they are bi-state sig- 
nals; on being a "1" state and off being 
a "0" state. Their vocabulary is just as 
limited — the only thing they are willing 
to tell you is their mood. Now how do we 
get any meaningful information out of a 
group of eight little messengers standing 
in front of us, each screaming "on" or 
"off at one time? 

Well, when the bus arrives, we could 
have the whole byte stand in front of us 
and count everyone who is turned "on." 
That would give us the capability of 
counting to eight. Seems pretty limited, 
doesn't it? Hmmm, the group really needs 
a leader. That leader will be the first bit 
on the left. We'll call that the Most Sig- 
nificant Bit, or MSB. The last bit on the 
right will be the Least Significant Bit, or 
LSB. Terrific! Now that we have a group 
leader and a group follower, all the bits 
should be given a rank. 

Handing out ranks is serious business 
and much thought should be given to it. 
We can start with the LSB and assign that 
bit the rank of "1," since it is the Least Sig- 
nificant Bit. We can be easy on everyone 
if we just double that rank for the next 
bit in line. So, why not just keep doubling 
the rank for the next bit in line and so 
on until we get to the MSB or Most Sig- 
nificant Bit. Now our byte looks some- 
thing like this: 




ent and more meaningful interpretation 
out of the little guys. If everyone is turned 
"off except the fourth bit from the right, 
for example, we can check the rank of that 
bit and find it is eight (8). Unknown to 
the bits, they have brought us a message 
and the message is "8." 

Aha, what if we want the bits to get on 
the bus and carry a message that says "9"? 
This is a problem because there is no bit 
with a rank (value) of 9. What to do? I 
guess the next best thing is to be very nice 
to the bits that have values of one and 
eight and turn them both on. When we 
look at the byte now we see 1+8 which 
gives us our 9. Easy. Even my student 
Nerdwell can count that high. In fact, 
Nerdwell can count to 255 because if you 
add up all the values of the bits, you get 
255: 

1+2+4+8+16+32+64+128 
= 255 

How to peek 

In using the memory map, we are go- 
ing to change the values that are stored 
in many of the bytes that make up 



In case you're 

wondering, the 

difference between 

machine language and 

assembly language is 

not much. 



What have we gained? More than meets 
the eye! When the byte gets off the Byte 
Express and each bit starts telling us what 
its current mood is, we can make a differ- 



memory. To make the discussion easier, 
we will usually talk about the bytes as lo- 
cations or addresses. These addresses are 
just like those on mailboxes on a long 
street. They start at at one end of the 
street and increase until they reach 65535 
at the other end (64K . . . remember). Yes, 
a computer's memory represents a long 
street. Let's look now at one such address. 
To see what is inside the location, we will 
use a BASIC command called PEEK. 

To PEEK at memory location 764, type 
in this line: 

10 PRINT PEEK C7641 : GOTO 18 

Type RUN, press the return key and 
watch the number 255 print over and over 
on your screen. Now press the space bar 
and you should see 32 printing. What is 
happening? 764 is the location that tells 
you what key is being pressed. 255 means 
no key and 32 means the space bar. Now 
you can see how a program could know 
if you have pressed a certain key. Try a 
program something like this: 

18 A=PEEKC764) 

28 IF A=32 THEM PRIHT "YOU P 

RESSED THE SPACE BAR" 

38 GOTO 18 

Now you can see why it is important to 
have a memory map. It would be very 
difficult to know which location to PEEK 
at without a map of your computer's 
memory. 

How to poke 

Now that we can look at memory loca- 
tions, we also want to be able to change 
what is inside them. Your wish is our com- 
mand. Later in the map you will learn 
that a value of 1 in location 752 will 
cause the cursor to disappear (the cursor 
is the little white box on the screen). This 
can come in handy when you have a 
whole bunch of text on the screen, and 
you don't want the cursor up there with 
it. Since location 752 doesn't normally 
contain a value of 1 , we must change 
it. The POKE command in BASIC will do 
this for us: 

POKE 752, 1 

That was easy. Now you know that 
POKEing and PEEKing are what a 
memory map is all about. For the most 
part, the map will just tell you different 
numbers to POKE and PEEK. 

ROM and RAM 

We encounter another small problem 
when we mess with memory. Some 
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memory addresses will allow us to read 
what is there, but will not allow us to write 
to them. Memory that we can both read 
from and write to is called RAM, which 
stands for Random Access Memory. This 
means that we can put numbers into 
these kinds of memory locations as well 
as look at what they already contain. The 
other kind of memory is called ROM, 
Read Only Memory. It is just what its 
name implies — we can only read what 
number is inside a ROM location, not 
change it. 

Now the next logical question is how 
do you know which is which? We will sim- 
ply tell you as we go through the lo- 
cations. 

Computer mathematics 

This section will open new vistas in 
your horizons. We are going to learn how 
the computer deals with numbers larger 
than 255, and also how to use the hex- 
adecimal numbering system. 

You must always use decimal numbers 
with a POKE statement. This means that 
sometimes you will have to convert be- 
tween binary, hexadecimal and decimal. 
The "Bits and Bytes" section covered bi- 
nary numbers where we turn on and off 
individual bits. In that section you saw 
that each memory location can only hold 
numbers up to 255. To store a value larg- 
er than that, we just use two locations in 
a row. 

As an example, look at memory loca- 
tions 88 and 89 which are called SAVMSC. 
These locations hold a number that tells 
where the top of the screen is. Because 
the screen is usually somewhere near the 
end of memory (it starts at location 40000 
in a 48K Atari), at an address that is way 
beyond the 255 limit for one memory lo- 
cation, the computer needs two locations 
to store the address. Remember the rank- 
ing of the bits where the MSB, or bit seven 
as we called it, was valued at 128? If we 
double that rank again, we get 256. Here 
is the trick to computer math. Since there 
is no bit eight to give such a rank to, we 
give the rank to the entire next byte of 8 
bits. Now we just see what the total of this 
second byte is and multiply it by 256. 
Figure 1 is a sample: 

I - ON or 
TOP OF MEMORY 



L_ 


-OFF or0 


VALUE 128 64 32 16 8 4 2 1 

DDDDDIII-' 


(High byte) 
or MSB 


DIIIIDDI-"' 


(Low byte} 
or LSB 



BIT#76 5 432 10 



BOTTOM OF MEMORY 
The computer "tn%" 121 + 256 ' 7 - 1913 



FIGURE 1. Bitmap 



Humans use dictionaries 

to speak the same 

words. In the case of 

computers, ASCII 

allows one computer to 

understand the letters 

and numbers created 

on another computer. 



When using two byte numbers, we call 
the first byte in memory the "low byte" be- 
cause it stores the lower value. It can only 
count from to 255. The second number 
counts in multiples of 256 and is called 
the "high byte." 

Let's try to PEEK and POKE a two-byte 
number. Suppose you wanted to fool the 
computer into thinking that the screen 
was in a different place in memory. Such 
a trick can come in handy when you want 
to have more than one screen at the same 
time. First let's look at memory and see 
where the computer thinks the screen is 
now. Here's a program to do this: 

10 5CREEN=PEEKC88)+PEEKC89)# 

256 

28 PRINT SCREEN 

Addresses 88 and 89 form a two-byte lo- 
cation called SAVMSC which points to 
where the computer thinks the first byte 
of screen memory is. 

When you run the preceding program, 
the address that gets printed out will vary, 
depending on how much memory your 
computer has. What we're going to do is 
add 480 to this address so that the com- 
puter will think that screen memory starts 



A.N.A.LO.G. COMPUTING 'AUGUST 1988 



halfway down the current screen. All this 
means is that no text will print in the top 
half of the screen, and you'll be able to 
type below the bottom of the screen 
(although you won't be able to see any- 
thing there). 

Let's go ahead and replace the old 
value of SAVMSC with a new number that 
is exactly 480 more than the old one. Add 
the following lines to the preceding ones: 



38 SCREEN=SCREEN+480 

40 SCRHI=INTCSCREEN/256) 



Line 40 finds out what number goes 
into the high byte of SAVMSC. Remem- 
ber that the high byte counts the number 
of pages, or multiples of 256, and that's 
why we divide by 256. 

50 SCRL0=SCREEN-SCRHI*256 

Now we multiply the new high byte by 
256 and subtract it from the total to get 
the low byte. 

Finally we place the new values in 
memory: 

60 POKE 88,5CRL0:PDKE 89,5CR 
HI 

The high byte can count from to 255 
just like the low byte. This means the lar- 
gest number we can have using a two-byte 
address is: 

255 + (255*256) = 65535 

If we count as a number (since the 
computer does), that gives a total of 
65536, which brings us back again to 64K. 
We have now come full circle in our dis- 
cussion, so it is time to go on to some- 
thing else to challenge you. 

Hexadecimal numbers 

Come back. You don't have to run away 
at the sound of those words. Hex, as its 
friends call it, is not nearly as hard as 
everyone thinks it is. As a matter of fact, 
it's really quite simple. But, just in case 
you don't believe us, I provide both 
decimal and hexadecimal numbers 
throughout the map. Now, though, we're 
going to learn about hex together. 

The main use for hex is in assembly 
language programming. We're not going 
to worry about that now though, because 
it's not really important. Instead, we're go- 
ing to go back to grade school, where we 
first learned all about the number system. 
As you'll recall, we use the decimal num- 
ber system, which means everything is 
based on powers of 10. For example, the 
number 452 is equal to 4*100 + 
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5*10 + 2*1, right? In other words, 
4*10 A 2 + 5*10 A 1 +2*10 A . 

Now you're not going to believe this, 
but the particular difference between 
decimal and hex is that hex is based on 
powers of 16 instead of 10. For example, 
452 hex would equal 4*16 A 2 + 
5*16 A 1+2*16 A 0or 4* 256 + 5 * 
16 + 2 , in other words, 1106. 

Pretty simple, huh? Actually, there's 
one more thing that I should probably 
mention. The number 9 in hex is the 
same as 9 decimal, but 10 hex is 16 
decimal (1 * 16 A \y So how do you write 
10, 11, 12, 13, 14 and 15 decimal in hex? 
Try A, B, C, D, E and F! That's why hex 
numbers look so confusing. So, for exam- 
ple, F in hex equals 15 decimal, IF equals 
31 (16 + 15), and so on. Oh, and by the 
way, binary is actually the same as hex and 
decimal, except it counts in powers of 2! 

Don't worry, I'm not going to leave you 
yet. A few more examples should make 
you a little more comfortable about hex 
and how to use it, but first a chart (Table 
1) to help us out. 

Table 1. Hex Convaralon Chart 











< 


Column * 4th 


M 


2nd 


HI 


HEX 


4096 


256 


16 


1 


1 


8192 


512 


32 


2 


2 


12268 


766 


48 


3 


3 


1MM 


1024 


84 


4 


4 


20480 


1280 


80 


5 


5 


24578 


1536 


98 


6 


8 


28672 


1792 


112 


7 


7 


32788 


2048 


128 


8 


8 


38884 


2304 


144 


9 


9 


«0960 


2580 


160 


10 


A 


45056 


2816 


178 


11 


B 


49152 


3072 


192 


12 


c 


53248 


3328 


208 


13 


D 


57344 


3584 


224 


14 


E 


61440 


3840 


240 


15 


F 



Decimal to hex 

Let's take the number 9304. Look in 
the chart to find the largest number that 
is smaller than 9304. That would be 8192, 
which is the second number in the fourth 
column. This means the hex number will 
have four digits because you found the 
decimal value 8192 in the fourth column. 
Write down the "hex #" from the chart 
in the fourth place: 



Now subtract 8192 from the original 
number of 9304 to leave a remainder of 
1112. Looking at the chart again we find 
the nearest smaller number of 1024 in the 
third column. Put down the correspond- 
ing hex * and subtract 1024 from 1112: 
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Do the same for the new remainder of 



88 to find the hex # digit for the second 
and first place of the hex number. Don't 
forget to mark hex numbers with a "$" as 
is standard with computer types like us. 
Here is the complete example (Example 
1): 

Declmol-to-Hex 



-8192 (largest I less thin 9304 on Chen, 4th column) _ 

1112 
- 1024 3rd column 



80 2nd column _ 
8 1st column _ 



Example 1. Declmal-to-hex axample 

If you find that you have numbers for 
only the first and third places, this means 
to add a as a placeholder. $040F would 
be an example. 

Hex to decimal 

Conversion in this direction is even 
easier. Just look up each hex number in 
the chart, find the corresponding decimal 
value, place them in a column and add 
them up to get a decimal total. Here is the 
mandatory example (Example 2) you are 
no doubt expecting: 



Hex-to-Declmal 



4th 3rd 2nd 1st 



-16384 

: 19007 (dec) 



Example 2. Hex-to-declmal example 

Glossary 

Next month we will begin publishing 
the actual memory map. Until then, you 
should familiarize yourself with the fol- 
lowing terms and definitions. As we ex- 
plain the inner workings of the Atari, we 
will have to refer to some of the follow- 
ing words. If you find some term we for- 
got to mention here, it's probably because 
it is fully explained at the memory loca- 
tion it pertains to. You should also read 
your BASIC manual in order to under- 
stand the terms that have to do with the 
BASIC language. 

6502: This is the heart of the computer, 
the chip that bosses everybody around. 
Actually, a lot of people even refer to 6502 
as being the computer, since it does have 
almost all of the brains. 

Accumulator: This is a location that is 
used to temporarily store the results of 
logic and arithmetic operations. The 
main accumulator is inside the 6502 chip, 
but sometimes memory locations are also 
used as an extra accumulator. 
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Address: The number assigned to an in- 
dividual memory location. Each byte in 
the Atari has its own unique address, 
much like a house has a street address. 
The main use of the memory map is to 
provide you a roadmap to each address 
so you don't get lost. 

Algorithm: A general procedure, plan or 
method that represents how your pro- 
gram will be written. 

ANTIC: This is a chip in the Atari com- 
puters that figures out what the screen is 
supposed to look like. 

ASCII: American Standard Code for In- 
formation Interchange (pronounced 
ASK-KEY). Everyone needs a standard or 
reference to refer to. This allows us to all 
speak to each other in the same terms. 
Humans use dictionaries to speak the 
same words. In the case of computers, AS- 
CII allows one computer to understand 
the letters and numbers created on 
another computer. Atari computers do 
not follow a true ASCII, but have their 
own code instead which we explain later. 

Assembly language: This is a program- 
ming language, just like BASIC, except it 
talks the computer's language instead of 
having to go through a translator. See 
"machine language" as well. 

ATASCII: ATAri Standard Code for Infor- 
mation Interchange. This is the code the 
Atari uses to convert letters to numbers 
and vice versa. See your BASIC manual 
to find out how it differs from ASCII. 

Baud: The rate of transmission of infor- 
mation conveyed between two computers. 
You usually say "Baud Rate" meaning how 
fast the two computers are talking to each 
other. This rate is determined by the bits 
per second that are being transferred. 
You encounter this term if you are using 
a modem, printer, disk drive, terminal or 
other device that needs to talk to a com- 
puter to work. Typical speeds of informa- 
tion transfer are 300, 1200, 2400, 9600 and 
19200 bits per second. 

Bit: The smallest piece of information the 
computer can handle. There are eight bits 
in a byte. Each bit can either be "on" or 
"off." See the section "Bits and Bytes" for 
a complete description. Sometimes you'll 
see " — " for the value of a bit. This just 
means that it doesn't matter if that par- 
ticular bit is on or off. 

Bit mapping: This refers to the process 
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of turning individual bits on and off 
without changing the rest of the byte. 

Boot: No, this isn't even close to what it 
sounds like. "Booting" a program means 
loading it in when the computer is turned 
on. For example, if you hold down the 
START button while turning on the com- 
puter, the computer will beep. This means 
that it expects a boot cassette to be in the 
cassette player. When you turn on the 
computer with the disk drive on, you will 
boot DOS. In other words, any program 
that loads in without you having to tell it 
to load is a boot program. 

Boundary: As in "4K boundary." This is 
the end of the block of memory. For ex- 
ample, a IK boundary would be the end 
of 1024 byte block. 

Buffer: A storage place, usually tem- 
porary, where information can come and 
go without disturbing things. 

Bus: A bus is a system of electrical lines 
shared by all devices that are connected 
to it. This is a convenient way for these 
devices to share data. It works just like a 
party-line telephone. Different parts of 
the computer talk to each other by get- 
ting on the bus and sending messages. 

Byte: Pronounced "bite." A collection of 
eight bits. Each memory address consists 
of one byte. Since we know at this point 
bytes and bits can be confusing, we pro- 
vide a special section elsewhere called 
"Bits and Bytes" to explain it to you. 

Checksum: A checksum is a special byte 
that the computer uses after talking to 
something to make sure it understood 
what was said correctly. 

CIO: Central Input/Output. This is Atari's 
main I/O routine. 

Cold start: A routine the computer goes 
through after you turn it on and before 
it lets you tell it what to do. 

Color clock: A unit of measurement on 
the screen. A color clock is the width of 
a pixel in graphics mode seven. That me- 
ans that the screen is 160 color clocks 
wide from border to border. 

Controller jack: What you plug your 
joystick into. 

CTIA: This chip takes care of translating 
the data coming from ANTIC into some- 
thing the television set can understand. 



Cursor: The position on the screen where 
the next character or pixel will appear. In 
graphics mode zero, you can see the cur- 
sor; it's the white box. 

Data: Any kind of information that is 
needed by a program or by the computer. 

Default: When you first turn on the com- 
puter, each memory location will contain 
a value. These initial values are called 
defaults, meaning that this is what these 
locations will equal if you don't change 
them. 

Device: Anything that the computer has 
to talk to is called a device. This includes 
the disk drive, printer and even the key- 
board and television set. 

Disable: To turn off. By disabling the 
BREAK key, for example, you can prevent 
someone from accidentally stopping your 
program. 

Display list: The program for ANTIC that 
describes what the screen is to look like. 

DLI: Display List Interrupt. See "in- 
terrupt." 

DMA: Direct Memory Access. The 
process of getting data from memory to 
put on the screen. 

DOS: Disk Operating System. A program 
that controls the use of the disk drive. See 
"OS" as well. 

DUP: Disk Utilities Package. This is a 
bunch of routines to do various things on 
the disk drive. The DOS menu is actually 
a list of these routines. 

Enable: To turn on. The opposite of 
disable. 

File: A whole bunch of data stored on 
disk or cassette. 

Flag: A signal that a certain condition has 
been met. In many BASIC programs, vari- 
ables are used as flags, as demonstrated 
in the following example: 



10 IF A 

= 1 



B AND C = D THEN FLAG 



50 IF FLAG = 1 THEN 100 



where the decimal point can appear any- 
where in the numbers (i.e., it can float 
around). An example of such numbers 
would be 1.0, 23.97 and 1.45678E + 04. 
Floating point numbers take up much 
more memory than fixed point (integer) 
numbers. 

FMS: File Manager System. This is a 
group of routines, or handler, to help the 
computer talk to the disk drive. 

GTIA: A fancy version of CTIA. 

Handler: A series of routines that tell the 
OS how to handle a particular device. 

HBLANK: Horizontal BLANK. The tele- 
vision set draws the screen one line at a 
time, from top to bottom and left to right. 
HBLANK is the time during which it is 
moving from the end of one line to the 
beginning of the next. 

Hi-res: Pronounced "high rez." This is an 
abbreviation for "high resolution," which 
refers to a graphics display with very small 
dots. 

Immediate mode: Using the computer 
without running a program. For example, 
if you type in: 

PRINT 3 + 2 
and then press RETURN, you will get a 
result of 5 on the screen immediately. 

Index: This is a variable used to keep 
track of where we are in a loop. For ex- 
ample, in the following statement X 
would be an index: 

FOR X = 1 to 100 

Internal: If something is internal, then 
that usually means it is built into the 
computer. 

Interrupt: An interrupt is something that 
interrupts whatever the computer is do- 
ing and tells it to do something else be- 
fore it continues. You should also see DLI, 
IRQ NMI and VBLANK. 

I/O: Input/Output (I/O) is nothing more 
than a fancy way of referring to the com- 
puter talking to a device, or vice versa. 

IOCB: Input/Output Control Block. This 
is a place that you use to talk to CIO. 

IRQ: Interrupt ReQuest. This is a kind of 
interrupt that you can tell the computer 
to ignore (the 6502 can enable or disable 



Floating point: A type of arithmetic it). 
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Jiffy: A jiffy is %o of a second, the time 
that it takes the television set to complete- 
ly draw the screen once. In European 
(PAL) systems, a jiffy is Vso of a second. 

Jump: The same thing as GOTO. The ex- 
pression "jump through location" means 
that the computer will GOTO the address 
stored in that location. 

K: As in IK, 8K, 16K, etc. IK is equal to 
1024 bytes. 

Logical line: A logical line is the space 
that a program line takes up. It can be 
one, two or three screen lines (try typing 
in a BASIC line that is more than three 
screen lines). 

Machine language: Machine language is 
a way of talking directly to the 6502 chip. 
Other languages like BASIC have to be 
translated into machine language before 
the 6502 can understand them. That takes 
time, which is why machine language pro- 
grams run so much faster than BASIC 
ones. In case you're wondering, the differ- 
ence between machine language and as- 
sembly language is, not much. Machine 
language is just a bunch of numbers. As- 
sembly language gives these numbers 
names so that they make more sense. 

Masking: When you're bit mapping, you 
have to have a way of ignoring the bits 
you're not interested in. This process is 
called masking, since you essentially place 
a mask over the bits you don't want to 
look at. 

Nibble: This is going to sound funny, but 
I swear it's the truth. A nibble is half a 
byte or four bits. 

NMI: Non-Maskable Interrupt. Unlike 
IRQs, you can't tell the 6502 to ignore this 
kind of interrupt. DLIs and VBLANK in- 
terrupts are both NMIs. 

NTSC: A name for the television system 
that is used in North America. European 
television is slightly different and uses a 
system called PAL. 

Offset: If you have a whole bunch of bytes 
making up a table of values or a buffer 
or something similar, then the offset is the 
number of the byte in this bunch that you 
are currently interested in. 

OS: Operating System. Its job is to make 
the computer run. You can think of the 
OS as the coach directing the players in 
a game. We can change some of the num- 



bers in the operating system to make the 
computer do what we want, instead of 
what it normally does. 

Page: Computer memory in the Atari is 
divided into 256 sections, called pages. 
Each page consists of 256 bytes. The pages 
are numbered through 255, and you can 
tell what page a particular location is in 
by looking at the high byte of its address. 
For example, location $09AB would be 
page nine. See the section called "Com- 
puter Mathematics" for an explanation of 
what a "high byte" and "low byte" are, and 
also for an explanation of "hexadecimal," 
which is what that funny number with a 
"$" in front of it is. 

PAL: The television system used in Eu- 
rope. See NTSC as well. 

Parallel: There are two ways that the com- 
puter can talk to something else. One of 
these is called parallel I/O, which simply 
means that the data is sent out one byte 
at a time. See'serial "for the other. 

PIA: This chip takes care of the controller 
jacks. 

Pixel: A fancy word for a dot on the 
screen. 

Playfield: Anything that appears on the 
screen other than a player or missile. 

Pointer: A pointer does exactly what it 
sounds like: points somewhere. Usually 
this "somewhere" is the location of some 
information that is needed. The pointer 
holds the address of this location. 

ROM: Read Only Memory. Computer 
memory that you can't change with the 
POKE command or anything else (it's OK 
to PEEK them though). ROM locations 
even remember their values after you turn 
the computer off! BASIC and the Atari 
operating system are stored in ROM. 

Scan line: If you look very closely at the 
screen, you'll see that it's made up of a 
whole bunch of tiny horizontal lines. 
These are called scan lines and are the 
height of a graphics mode eight pixel. 

Screen memory: A bunch of bytes some- 
where in memory (usually at the end) that 
ANTIC converts into a picture and sends 
to GTIA or CTIA which puts it on the 
screen. In other words, this is where the 
data that is to appear on the screen is 
stored. In case you don't understand the 
difference between this and the display 



list, the display list tells ANTIC how to in- 
terpret the screen memory (i.e., where is 
it, does the data represent characters or 
pixels, how big are they, etc.). 

Sector: A group of 128 bytes on the disk. 
It may be difficult to do, but try to im- 
agine a disk being made up of 40 concen- 
tric rings. Now imagine cutting the whole 
disk into 18 equal-size wedges. Each of the 
wedges will have 40 pieces for a total of 
720 pieces altogether. Well, each of these 
pieces is a sector. 

Serial: This is a method of I/O that sends 
data out one bit at a time rather than one 
byte at a time. See "parallel" also. 

Shadow register: A shadow register is a 
RAM location that acts like a messenger 
for a chip location. Any changes to the 
shadow register are sent to the chip and 
vice versa. This is necessary because a 
chip location can't be changed perma- 
nently, and so it relies on its shadow 
register to get information from you. 

SIO: Serial Input/Output. This refers to 
a routine in the OS that takes care of seri- 
al I/O. See "serial." 

Timeout: Sometimes a device needs a lit- 
tle time to think and breathe, so it takes 
a timeout. If it takes too long a timeout, 
however, the computer gets upset and re- 
fuses to talk to it anymore. 

User: You, anybody or anything that uses 
the computer. BASIC is considered a user 
by the OS, and the OS is considered a 
user by the 6502. Similarly, BASIC con- 
siders your program a user, and your pro- 
gram considers anyone that runs it a user. 

VBLANK: Vertical BLANK. We already 
saw that the television set draws the screen 
over and over from top to bottom and left 
to right (see HBLANK). VBLANK is the 
time during which the television set is go- 
ing from the bottom of the finished 
screen back to the top to start drawing 
again. 

Vector: This is another kind of pointer. 
It refers to the starting address of a rou- 
tine. The computer needs to know where 
to look for things, and the vectors help 
it along the way. Usually a vector refer- 
ences the starting address of a machine 
language subroutine. 

Warm start: A routine the computer goes 
through after you press SYSTEM RESET 
before it lets you tell it what to do. g\ 
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Animation 

by Ron Goodman 

There's a lot of computer anima- 
tion today, and many Atari own- 
ers probably wish they could do 
some of the animation that they 
see in the movies and the video arcade. But 
there are several problems. Most computer 
animation done in movies is not produced 
"real-time." That is to say that it's created 
a frame at a time and then photographed. 
From there it may be modified with both dig- 
ital and analog filters, so each frame may end 
up taking several minutes to produce. Some 
of the best quality graphics produced with 
techniques such as "ray-tracing" may even 
take several hours per frame to create on a 
mainframe computer. 



The second problem is of course that 
an Atari is not a mainframe computer. 
The Atari instead has a relatively slow 
6502 microprocessor. With the overhead 
added by using a high-level language like 
Atari BASIC, most programmers throw up 
their hands in disgust. 

Some people abandon BASIC and try 
assembly language. This is a good 
recourse, but even Atari assembly is not 
that fast, and many people don't want to 
give up the ease of using a high-level 



A.N.A.L.O.G, COMPUTING' AUGUST 1988 



language. 

In this article I will demonstrate my so- 
lution to this problem using two machine 
language routines. They will allow you to 
do your entire animation program in 
BASIC without ever touching an edi- 
tor/assembler and without buying a new 
computer! Because, in spite of the weak- 
nesses of a 6502 computer, the Atari com- 
puter is still the best computer for 
graphics and animation under $1,000, ex- 
cept perhaps for the Atari STs. 
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What is animation? 

The process of animation involves dis- 
playing pictures, one after the other, 
usually in an attempt to simulate motion. 
Cartoonists have used the method for 
years, and in reality moviemakers do bas- 
ically the same thing too (although they 
don't call it animation, since the pictures 
are generated from a camera rather than 
an artist or computer). Different methods 
of animation generally differ in the way 
that the images are created, and the speed 
that the images are displayed (frames per 
second.) 

There are two general categories of 
computer-graphics animation, although 
they often can be found combined into 
a hybrid form. The first is frame generat- 
ing, where the entire frame is created, dis- 
played and then erased when the next 
frame is generated. The second method 
is frame modification. In this method an 
original image is displayed and then 
changed only in the parts where some- 
thing is supposed to move. 

Frame generation is very flexible and 
usually relatively easy to program. The 
first problem is that it can be slow, since 
even the slightest change requires that the 
entire picture be erased and regenerated. 
The second is that it usually requires 
twice as much video memory: one chunk 
for the picture being displayed and 
another chunk for the image being 
generated. 

Frame modification is often much 
faster, but it's not as flexible and often 
does not look as good as frame genera- 
tion. It's unfortunately limited to simple 
animation — unless you want your pro- 
gram to get very slow and complex. This 
method is also usually less memory con- 
suming than frame generation, although 
this advantage can be sacrificed in order 
to use a workscreen to make smooth pic- 
ture transitions like frame generation. 
Frame modification is what most BASIC 
programmers like to use because of the 
speed advantage. 

Listings 1 and 2 are two programs 
which visibly do the same animation, but 
Listing 1 uses frame generation and List- 
ing 2 uses frame modification. The pro- 
grams move a horizontal line from the far 
left of the screen to the far right. In frame 
generation, we display a line at the far left 
(0,100). Then that line is erased and a new 
line is displayed at (1,100)— then (2,100), 
(3,100) and so on until it reaches the far 
right. This method is slow because the en- 
tire line must be redrawn to move it. Also, 
increasing the length of the line would 
slow down the program. This method is 
flexible. The line could easily be made to 



move two pixels at a time by just chang- 
ing the X = X + 1 to an X = X + 2 or made 
to move vertically by changing the value 
of Y. 

The frame modification routine has a 
different approach. It draws the line at the 
far left (0,100). Then it ejases the leftmost 
pixel of the line and adds a pixel to the 
right end over and over until the line ap- 
pears to have moved to the far right of the 
screen. This method is fast because only 
two pixels have to be drawn per frame. 
The line could have been 100 pixels in 
length with no loss in speed, since the 
line is not being redrawn each frame. 
However, the movement is not as flexible. 
Since we are using a trick to move the 
line, moving two pixels at a time would 
not be a simple change. And moving the 
line vertically would be completely 
different. 

For moving a line across the screen, 
most people choose frame modification 
because speed is the most important fac- 
tor. But type in the two programs in List- 
ings 3 and 4. They each have 
approximately the same output — four 
simple stick figures bounce around in a 
box with a square inside it. In frame 
modification (Listing 4) the action is slop- 
py. When part of the picture crosses the 
inner square it erases it momentarily. In 
frame generation (Listing 3) the move- 
ment is smooth and no damage occurs 
when two objects cross paths. In addition, 
frame generation is slightly faster. Why? 
Because most of the picture changes each 
frame. 

Using frame generation 

Some nice frame generation can be 
done on the Atari since it has page- 
flipping abilities. This is the ability to tell 
the computer where an image is stored 
in memory, which allows you to change 
the Atari's screen from displaying one im- 
age to the next virtually instantly. The pro- 
gram in Listing 5 is an optimized 
assembly language listing of a program 
that will allow BASIC programmers to 
easily use this feature. The program in 
Listing 6 is a BASIC program that can be 
appended to the end of your BASIC ani- 
mation program. A GOSUB to Line 
30000 will load the machine-language 
routine from Listing 5 into Page 6 
memory. Remember that Page 6 is unused 
by BASIC, so this routine is safe and takes 
up no program memory. 

This program fools the Atari into dis- 
playing one image and working on 
another. The graphics commands DRAW- 
TO and PLOT will draw the invisible 
background image to create the next 




frame while the current image is being 
displayed. Calling the machine-language 
routine with an X = USR(1536) will cause 
the invisible image to be displayed and 
the image being displayed to be disposed. 
Then you draw the next frame and do 
another X = USR(1536). The machine- 
language handles all the details in just a 
15th of a second, so all you need to do 
is call X = USR(1536), draw an image, call 
X = USR(1536), draw next image, call 
X = USR(1536), draw next image, etc 
Although it is not always necessary, it is 
a good general practice to call 
X = USR(1 536) just after the GRAPHICS 
statement and before you begin drawing. 
This program will work in graphics mode 
24, 9, 10 and 11 (24 is mode 8 without a 
text window). 

What is the routine doing? First it 
modifies the display list to point to one 
chunk of memory. Next it adjusts the 
video memory pointer at locations 88 and 
89 of BASIC to point at another chunk. 
DRAWTO and PLOT commands are 
drawn in the chunk pointed to by the 
video memory pointer and so are not 
seen. Then, the next time the machine- 
language routine is called, the pointers 
swap. The 7680 byte area of memory that 
was being displayed is filled with zeros 
(cleared) and is ready to be used for the 
next frame. And the 7680 byte chunk that 
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was being worked on by DRAWTOs and 
PLOTs is now displayed. 

The BASIC program in Listing 7 is an 
example of a complete frame-generation 
program. It's a clock program that up- 
dates its display about every ten seconds. 
The hands move smoothly because the 
picture appears to be drawn instantly. The 
clock chimes at the half hour and gongs 
at the hour. It has ten setable alarms. To 
set the alarms, press the space-bar while 
the program is running. To quit press ES- 
CAPE. The alarms and the current time 
are maintained even if the program is 
stopped (or even deleted!), but the alarms 
will only sound while the program is run- 
ning. The screen will progressively dim 
after a few minutes of inactivity instead 
of going into attract mode to protect the 
screen more effectively and attractively. 
This way the computer can be left on 
over-night or even for days. 

The BASIC program in Listing 8 is 
another example. In this program you 
draw a line picture with the joystick. Do 
this by moving the graphics cursor to var- 
ious points and pressing the joystick fire 
button. The program will connect the 
points. After you draw your picture, press 
START Now the joystick will cause your 
picture to expand or contract by pushing 
up or down, and move left or right by 
pressing the stick left or right. Pressing 



the fire button will cause the picture to 
be rotated by ten degrees. The pictures 
are generated quickly and appear to be 
redrawn instantly. Unrestricted movement 
like this is easy with frame generation and 
the obvious choice over frame modifica- 
tion for such an application. 

Using frame modification 

Using frame modification doesn't have to 
be choppy and chunky. You can use the 
page-flipping technique that we used in 
frame generation. Listing 9 is an assem- 
bly language program for this purpose. It 
works in a different manner, of course. It 
must be called before you begin drawing. 
Now all of your drawing is done in the 
background screen. When the frame is 
ready to be displayed you do another USR 
call and the frame is copied into the fore- 
ground for display, leaving the back- 
ground copy intact. Future modifications 
are still done on the background. And 
whenever it is time for an update you do 
another USR call. So all you need to do 
is X = USR(1664), draw the picture, 
X = USR(1664), modify the picture, 
X=USR(16 64), modify the picture, 
X = USR(1664), etc. 

Listing 10 can be appended to your 
BASIC program to load this routine. Like 
the frame generation program the 
machine language is stored in unused 
Page 6 so it doesn't use program memory. 
Note also that both Listing 6 and Listing 
10 have unique line numbers and can be 
appended for combined frame modifica- 
tion and frame generation applications. 
The machine-language routines are also 
stored in different areas of Page 6 so that 
there is no conflict of memory there. 

Other methods of animation 

The Atari has some special features for 
animation that can be used. Player-missile 
graphics are useful for horizontal anima- 
tion, or if some machine language is used, 
for vertical animation too. There is colli- 
sion detection in hardware to simplify 
computations for games, but player/mis- 
sile graphics can also be used to simplify 
animation computations. For more com- 
plete explanations of these features, you 
should read De Re Atari. 



Ron Goodman is a computer music major at 
the California Institute of Technology. His 
greatest fascination is with computer graph- 
ics and computer music (MIDI/ST appli- 
cations). 
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LISTING 1: BASIC 

IQ 5 GOSUB 30088 

RR 18 GRAPHICS 24: COLOR 1 

PC 28 K=8:Y=188 

OY 38 PLOT X,Yi DRAMTO X+50, Y i A=USR C1536J 

DJ 48 X=X+l:IF X<268 THEN 38 
)M 58 GOTO 18 

TV 38888 RESTORE 30818: FOR X=1536 TO 1627 
:READ YiPOKE X,Y:NEXT X : RETURN 
30018 DATA 168,8,24,173,4812,185,5,133 
,283,173,49,2,185,8,133,284,165,283,18 
5,96,133,285,165,284,185,8,133 
38828 DATA 286,173,49,2,56,233,31,141, 
230,2,165,89,289,283,288,7,173,238,2,1 
33,89,288,13,178,177,283,133 
38838 DATA 89,138,145,283,24,185,15,14 
5,285,165,89,141,88,6,165,88,141,79,6, 
169,8,162,38,153,88,127,208 
38048 DATA 288,258,238,88,6,282,288,24 
4,184,96 



JSTING 2: BASIC 

IlB GRAPHICS 24: COLOR 1 
PC 28 X=8:Y=188 
KX 38 PLOT X,Yi DRAMTO X+58,Y 
LJ 48 COLOR 0:PLOT X,Y:COLOR liPLOT X+51, 

Y:X=X+1".IF X<268 THEN 40 

50 GOTO 10 



LISTING 3: BASIC 



5,96,133,285,165,284,185,8,133 
OS 38828 DATA 286,173,49,2,56,233,31,141, 

238,2,165,89,289,283,288,7,173,238,2,1 

33,89,288,13,178,177,283,133 
MM 38838 DATA 89,138,145,283,24,185,15,14 

5,205,165,89,141,88,6,165,88,141,79,6, 

169,8,162,38,153,88,127,288 
HJF 38848 DATA 288,258,238,88,6,282,288,24 

4,184,96 



LISTING 4 : BASIC 

FH 18 GRAPHICS 24 : SETCOLOR 2,8,8 

GY 28 COLOR liPLOT 67,28iDRAHT8 252,28:DR 

AMTO 252,171iDRAMT0 67, 171 : DRAMTO 67,2 

8 
IX 38 CX=168:CY=86:X=8:Y=8:DX=6:DY=5:T=1 
EC 40 IF T=l THEN COLOR 1 : PLOT 108,48:DRA 

WTO 219,48:DRANT0 219,151 : DRAMTO 188,1 

51:DRAMT0 188,48 
BS 58 COLOR CT=1> 

JZ 68 XX=CX+X:YY=CY+Y: GOSUB 1888 
LI 78 XX=CX+X:YY=CY-Y! GOSUB 1888 
KT 88 XX=CX-X:YY=CY+Y: GOSUB 1888 
MC 98 XX=CX-X:YY=CY-Y: GOSUB 1888 
BZ 188 IF T=-l THEN GOSUB 288 
FK 118 IF T=l AND CX=8 OR Y=8) THEN FOR A 

=58 TO 8 STEP "1: SOUND 8, A, 12, A/3 . 23 : F 

OR B=l TO 18: NEXT B : NEXT A 
DV 128 IF T=l THEN GOSUB 258 
II 138 T=-T:GOTO 48 
PT 288 X=X+DX:Y=Y+DY:RETURN 
MM 258 IF ABSCY)>53 THEN DY=-DY: GOSUB 388 
LV 268 IF ABSCX)>83 THEN DX=-DX : GOSUB 300 
ZM 270 RETURN 
AF 388 FOR A=15 TO 8 STEP -8. 2: SOUND 8,41 

,12, A: NEXT A: RETURN 
SM 1888 PLOT XX-5, YY-18 : DRANTO XX+5, YY-18 

IDRAMT8 XX+5,YY: DRAMTO XX-5, YY: DRAMTO 

XX-5, YY-18: REM DRAM HEAD 
VZ 1018 PLOT XX,YY:DRAMTO XX, YY+28 ! DRAMTO 
XX-7,YY+29!PL0T XX, YY+28 : DRAMTO XX+7, 

YY+29SREM DRAM BODY AND LEGS 
TB 1028 PLOT XX-6, YY+9 ! DRAMTO XX,YY+7:DRA 

HTO XX+6,YY+9:REM DRAM ARMS 
AI 1038 RETURN 



10 5 GOSUB 38888 

FH 18 GRAPHICS 24 : SETCOLOR 2,8,8 

IH 28 CX=168:CY=86:X=8:Y=8:DX=6:DY=5:T=1 

GZ 38 COLOR 1 : PLOT 67, 20 : DRAMTO 252,28:DR 

AMTO 252, 171: DRAMTO 67, 171 : DRAMTO 67,2 

8 
QC 48 PL8T 188, 48: DRAMTO 219, 48 : DRAMTO 21 

19, 151: DRAMTO 188, 151 : DRAMTO 100,48 
JZ 68 XX=CX+X:YY=CY+Y:GBSUB 1888 
LI 78 XX=CX+X!YY=CY-Y: GOSUB 1800 
KT 80 XX=CX-X:YY=CY+Y:G0SUB 180O 
MC 90 XX=CX-X:YY=CY-Y:G05UB 10OO 
UO 95 T=USRC1536> 
UI 100 IF X=0 OR Y=0 THEN FOR A=58 TO 8 S 

TEP -liSOUND 8,A,12,A/3.23:F0R B=l TO 

18i NEXT BSNEXT A 
HN 118 GOSUB 258: GOSUB 288 
QC 138 GOTO 38 
PT 288 X=X+DX:Y=Y+DY: RETURN 
MM 258 IF ABS(YI>53 THEN DY=-DY: GOSUB 388 
LV 268 IF ABSCX)>83 THEN DX=-DX:GOSUB 380 
ZM 270 RETURN 
AF 30O FOR A=15 TO O STEP -0 . 2 : SOUND 0,41 

,12, A: NEXT A: RETURN 
SM 10O0 PLOT XX-5, YY-10: DRAMTO XX+5,YY-10 

iDRAHTO XX+5,YY! DRAMTO XX-5, YY ! DRAMTO 

XX-5, YY-10: REM DRAM HEAD 
UZ 1O10 PLOT XX, YY: DRAMTO XX, YY+20 : DRAMTO 
XX-7,YY+29:PL0T XX, YY+20 : DRAMTO XX+7, 

YY+29:REM DRAM BODY AND LEGS 
TB 1O20 PLOT XX-6, YY+9: DRAMTO XX,YY+7:DRA 

WTO XX+6,YY+9:REM DRAM ARMS 
AI 1030 RETURN 
TV 3O008 RESTORE 38818 : FOR X=1536 TO 1627 

■ : READ Y:POKE X,Y:NEXT X: RETURN 
PH 38810 DATA 160,0,24,173,48,2,105,5,133 

, 203, 173, 49, 2, 105, O, 133, 204, 165, 203, 10 



LLSTING 5: ASSEMBLY 

10 ;Page flipping routine. After using 

20 ;GR.24, GR.9-11, call this routine 

30 ;with X=USRC1536) to toggle 

40 ; background and foreground page. 

50 ; Background page is the one that 

60 ;PLOT and DRAMTD effect, and 

78 ; foreground is the one that is 

75 ^displayed, 

88 ; 

$8688 

S82E5 

$58 

$0238 



90 *= 
010O MEMTOP 
0110 SAUMSC 
0120 SDLSTL - 
0130 DLPNT1 = $CB 
0140 DLPNT2 = $CD 
0158 
0160 



0170 
0180 
8190 
0200 

0210 

0220 
8230 
0248 
8258 
8260 
027O 
0280 
8298 
8388 
031O 
0320 
0330 



LDY 80 

CLC 

LDA SDLSTL 

ADC 85 

STA DLPNT1 



Mew top pointer. 
Video nen pointer 
Start of DL. 
Two unused words 
in zero page. 



Find the 
two 

display 
LDA SDLSTL+1 list 
ADC 80 references 
STA DLPNT1+1 to Video 
LDA DLPNT1 MeMory 
ADC 896 and store 
STA DLPNT2 then in 
LDA DLPNT1+1 unused 
ADC 80 part of 
STA DLPNT2+1 page 8. 
LDA SDLSTL+1 Find area 
SEC to store 
SBC 831 screen 2 
STA MEMTOP+l safely. 
LDA SAVMSC+l Insure that 
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8348 
6358 
8368 
8378 
8388 
8398 
8488 
8418 
8428 
8438 
8448 
8458 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 
8548 
8558 
8568 
8578 
8588 
8598 
8688 
8618 
8628 
8638 
8648 
8658 
8668 
8678 
6688 



CMP CDLPNTl),Y foreground 

BNE NORM and 

LDA MEMTOP+1 background 

STA SAUMSC+1 are 

BNE CLEAR different. 

NORM TAX Swap both 
LDA CDLPNT1),Y Of the 
5TA 5AUM5C+1 foreground 
TXA pointers 
5TA CDLPNT1),Y and 
CLC the one 
ADC 8$8F background 
STA CDLPNT2),Y pointer. 

CLEAR LDA SAUMSC+1 Set up the 
STA SCRPNT+1 indexed 
LDA SAUMSC addressing 



STA SCRPNT 
LDA 88 
LDX 838 
LOOP STA 8,Y 
INY 
BNE LOOP 



coMMand. 
Quickly 
clear 
out 

7688 byte 
buffer 
INC SCRPNT+1 for the 
DEX new 
BNE LOOP screen. 
PLA Unused parameter 
RTS Return. 
SCRPNT = LOOP+1 

;The SCRPNT pointer is used to 
jModify code on the fly. This 
; allows us to use Indexed 
;addressing which is faster 
jthan Post-indexed indirect 
jaddressing in the inside loop. 
.END 



LISTING 6: BASIC 



TV 38888 RESTORE 38818: FOR X=1536 TO 1627 
iREAD YiPOKE X,Y;NEXT X: RETURN 

PW 38818 DATA 168,8,24,173,48,2,105,5,133 
,283,173,49,2,185,8,133,284,165,283,18 
5,96,133,285,165,284,185,0,133 

CIS 38828 DATA 286,173,49,2,56,233,31,141, 
238,2,165,89,289,283,288,7,173,238,2,1 
33,89,288,13,178,177,283,133 

WH 38838 DATA 89,138,145,283,24,185,15,14 
5,285,165,89,141,88,6,165,88,141,79,6, 
169,8,162,38,153,88,127,208 

HF 38848 DATA 288, 258, 238, 88, 6, 2B2, 288, 24 
4,184,96 

LISTING 7: BASIC 

TM 18 REM Press space bar to set alarns. 
SR 28 GRAPH ICS8!S|TX0L0R 2, 8, 8 : POSITION 

FV 38* XFR=188 : XMK=98 : XHR=78 : XMI=98 : XSE=98 
NU 48 YFR=88:YMK=72:YHR=56:YMI=72:YSE=72: 

YDI=34 : ALRMB=1645 : HALF=8 
IG 58 IF PEEKCALRMB-1I<>88 THEN FOR X=ALR 

MB TO ALRMB+19 SPOKE X, 8: NEXT X SPOKE AL 

RMB-1,88 
TI 68 DIM S$C2),T$C2),M$C2),H$C8) :SHFT=6B 

*12*368B : CX=168 : CY=95 : PI0UER2=1 . 5788 : G 

OSUB 678:GRAPHICS 8:SETC0L0R 2,8,8 
SQ 78 CLOSE 84 I OPEN 84, 12, 8,"K: " 
MX 88 ? "Is the clock already set? CY/N)" 

:? "tor press H for HELP. J"; 
FS 98 GET 84, A: IF A=89 THEN GOSUB 1488: GO 

TO 268 
OH 188 IF A=72 THEN GOSUB 1368: GOTO 88 
XQ 118 IF A<>78 THEN 98 
CQ 128 ? "N" 
GZ 138 TRAP 148:? : PRINT "IS it (AIM or ( 

PJM?"; 
GX 148 GET 84,A:IF A=65 THEN S$="AM" : GOTO 

178 
FE 158 IF A=88 THEN S$="PM" : GOTO 178 
NK 168 GOTO 148 
DY 178 ? CHR$CA) 
YM 188 TRAP 188: PRINT " Mhat is the hour 

"; : INPUT H 



198 TRAP 198:PRINT " How nany Minutes 

"; : INPUT M 
HI 288 TRAP 288 : PRINT " How Many seconds 

"; : INPUT s 
XT 218 TRAP 8:G0SUB 1480 
CY 228 JIF=68*CS+68*M+36B8*H) : IF H<>12 AN 

D S$="PM" THEN JIF=JIF+SHFT 
KN 238 IF H=12 AND 5$="AM" THEN JIF=JIF+S 

HFT 
GI 248 B18=INTCJIF/65536) :JIF=JIF-65536»B 

18 ! B19=INT C JIF/256) ! B28= JIF-256*B19 
MR 258 POKE 28,8:P0KE 18,B18:P0KE 19,B19: 

POKE 28,B28:REM POKE 28,8 INSURES NO T 

URNOUERS HHILE SETTING. 
RU 268 JIF=CPEEKti8)*65536+PEEKC19)*256+P 

EEKC28)):IF JIF>5399999 THEN JIF=JIF~5 

184888:G0T0 248 
H5 278 JIF=INTCJIF/68J 
PF 288 H=JIF/3688: JIF=JIF-360O*INT CH) : M= J 

IF/68 :S=JIF-60*INT CM) :IH=INTCH) :IM=INT 

CM) 
ZA 298 H=H/1.9108-PIOUER2:M=M/9.5493-PIOU 

ER2 : S=S/9 . 5493-PI0VER2 
JX 388 IF PEEKC77J>122 THEN POKE 77,122 
ZH 310 SETCOLOR 1, O, 15 . 4-PEEK C77) /10 
CI 320 GOSUB 560: REM DRAM CLOCK FRAME 
LD 330 PLOT CX,CY:DRAHTO CX+O . 7*XHR*C0S CH 

-8 . 12) , CY+8 . 7*YHRKSIN CH-8 . 12) i DRAHTO C 

X+XHR»COS CH) , CY+YHR*SIN CH) 
UH 348 DRAHTO CX+8 . 7*XHR*C0S CH+8 . 12) , CY+B 

. 7*YHR*5INCH+8. 12) ! DRAHTO CX,CY 
ME 358 PLOT CX+i, CY ! DRAHTO l+CX+8 . 7*XHR*C 

OS CH-8 . 12) , CY+8 . 7*YHR*SIN CH-8 . 12) : DRAH 

TO 1+CX+XHRWC0SCH),CY+YHR*SINCH) 
FD 368 DRAHTO 1+CX+O . 7*XHR*C0S CH+0 . 12) , CY 

+O.7*YHR*SINCH+0.12) : DRAHTO 1+CX,CY 
OG 370 PLOT CX,CY: DRAHTO CX+0 . 7*XMI*C0S CM 

-O. 07), CY+0.7*YMI*SINCM-8. 87) ! DRAHTO C 

X+XMI*COS CM) , CY+YMI*SIN CM) 
MM 380 DRAHTO CX+0 . 7*XMI*C0S CM+8. 07) , CY+8 

. 7*YMI*5IN CM+0 . 07) : DRAHTO CX , CY 
TH 390 PLOT CX+1, CY: DRAHTO 1+CX+O . 7»XMI*C 

05 CM-0 . 87) , CY+8 . 7*YMI*SIN CM-8 . 87) : DRAH 

TO 1+CX+XMI*C0SCM),CY+YMI*SINCM) 
XJ 488 DRAHTO 1+CX+0 . 7*XMI*C0S CM+0 . 07) , CY 

+ 8 . 7*YMI*SIN CM+0 . 07) S DRAHTO 1 + CX, CY 
ZL 410 REM PLOT CX,CY: DRAHTO CX+XSE*C05CS 

),CY+YSE*SINCS) :REM TOO SLOH! ! ! 
HT 428 REM PLOT CX+1, CY ! DRAHTO i+CX+XSE*C 

OS CS) , CY+YSE*SIN CS) 
TP 438 GOSUB 1240 

UL 440 IF PEEKC764)=33 THEN GOSUB 940 
JA 450 IF PEEKC764)=28 THEN GRAPHICS 6 : GO 

SUB 1280 :CLR :END 
HH 460 POKE 764,255 
01 470 X=USRC1536) 

AF 488 IF IM=0 AND HALF=8 THEN GOSUB 768 
JR 490 IF IM=1 THEN HALF=0 

BD 50O IF IM=30 AND HALF=0 THEN GOSUB 818 
JT 518 IF IM=31 THEN HALF=8 
EG 520 C=0 
HV 530 IF IH=PEEKCALRMB+2*C) AND IM=PEEK C 

ALRMB+2*C+1) THEN GOSUB 898: GOTO 260 
GJ 540 C=C+1!IF C<10 THEN 530 
OS 550 GOTO 260 
BD 568 FOR C=8 TO lliPLOT X CO , Y CO : DRAHT 

EX CO, EY CO iNEXT C 
UT 578 FOR C=8 TO lliPLOT X CO +1, Y CO : DRA 

HTO EXCO+l,EYtO iNEXT C 
XV 588 FOR C=8 TO 11:PL0T X CO +2, YCO ! DRA 

HTO EX CO +2, EY CO : NEXT C 
AP 590 PLOT PXC11),PYC11) iFOR C=0 TO 11:D 

RAHTO PXCO,PYCO :NEXT C 
RE 688 PLOT PX Cll) +2, PYC11) : FOR C=8 TO 11 

: DRAHTO PXCO+2,PYCO ! NEXT C 
NO 618 PLOT PXC11)+1,PYC11) iFOR C=8 TO 11 

: DRAHTO PXCO+l,PYCO iNEXT C 
RG 620 PLOT PX1C11)+2,PY1C11) :FOR C=0 TO 

11: DRAHTO PX1CC)+2,PY1CC) : NEXT C 
OM 630 PLOT PX1C11)+1,PY1C11) : FOR C=0 TO 

11: DRAHTO PX1CC)+1,PY1CC) ! NEXT C 
XU 640 PLOT PX1C11),PY1C11) :FOR C=0 TO 11 

: DRAHTO PXlCO,PYlCO JNEXT C 
ZK 650 FOR X=8 TO 4 iFOR Y=X TO 5 i PLOT PX2 

CX),PY2CX) ! DRAHTO PX2 CY) , PY2 CY) iNEXT Y 

iNEXT X 
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ZO 660 RETURN 

KK 678 DIM K till , Y til J , EH til) , EV til) , PK (1 

u , pv tin , pxi tiu , pyi tin , PX2 tin , py2 t 
in :c=o 

PP 688 FOR K=8 TO 6.27 STEP .5236: X tCJ=C 
OS tX)«tXMK~2) + CX 1 EX IC) =COS tX)* tXMK+2) + 

cx 

TQ 690 YtC)=SINtX)»lYMK-2)+CY:EYtC)=SINlX 

)*tYMK+2)+CY 
MH 788 PXitC)=C0StX)*XFR*i.l+CX:PYltC)=5I 

NtX)*YFR*i.l+CY 
EE 710 PXtC)=COSlX)*XFR+CX:PYtC)=SIHtX)*Y 

FR+CY:C=C+l:HEXT X 
MZ 720 FOR C=8 TO 5 : PX2 tC) =COS IC*1 . 0472)* 

XFR/5+CX : PY2 IC) =SIM tC*l . 0472> *YFR/5+CY 

' NEXT C 
CE 730 IF PEEK 11648)096 THEN GOTO 30000 
ZL 740 RETURN 

SK 750 REM ROUTINE TO DO HOURLY CHIME 
BC 760 HALF=1S GOSUB 850 : FOR C=l TO N:FOR 

X=3 TO 15 STEP 4:S0UND 0, 100, 10, X : SOUN 

D 1,50,12,X:S0UND 2, 182, 18, X : NEXT X 
KV 778 FOR X=14 TO STEP -8. 3: SOUND 8,18 

8,10,X:S0UND 1,50,12,X:S0UND 2,102,10, 

x:next X 

SJ 788 FOR X=l TO 200 : NEXT X : NEXT C 

ZV 790 RETURN 

PL 800 REM ROUTINE TO DO HALF HOUR CHIME 

RL 810 HALF=1: GOSUB 858: FOR X=18 TO 3 STE 

P -liFOR C=0 TO liSOUND C, 188+C, 18, X : N 

EXT C:NEXT X 
ZB 828 FOR X=10 TO STEP -1:F0R C=0 TO 3 

ESOUND C, 188+C, 18, X : NEXT C : FOR C=l TO 

25 '.NEXT C:NEXT X 
ZK 838 RETURN 
QC 848 REM ROUTINE USED BY HOURLY/HALF HO 

UR CHIME FOR BOOKEEPING AND TO SILENCE 
CHIMES AT LATE NIGHT. 
JY 858 IF IH<8 OR IH>22 THEN POP :RETURN 

:REM QUIET MODE FROM 11PM TO 7:59AM 
QH 868 N=IH:IF IH>12 THEN N=IH~12 
ZS 878 RETURN 

YB 888 REM ALARM SOUND ROUTINE 
QP 890 POKE 764,255:U=30iSETC0L0R 1,0,15: 

POKE 77,0 
RV 908 FOR X=l TO 23: FOR Y=0 TO 255 STEP 

3:S0UND 0,Y,10,15iS0UND 1, U, 18, 15 : U=U+ 

l:IF U>255 THEN U=8 
01 918 IF PEEK 1764) =255 THEN NEXT YiNEXT 

X 
CN 920 POKE 764,255:S0UND 0, 0, 0, 0: SOUND 1 

,0,0,8: RETURN 
KX 930 REM ROUTINE TO SET ALARMS. NOTE A 

LARMS ARE SET IN MEMORY SO ARE NOT LOS 

T BETNEEN RUNS 
SM 940 GRAPHICS OiSETCOLOR 2, 0,0: FOR X=0 

TO 9!? CHR$t65+X);"I "; : C=PEEK tALRMB+2 

itX) 
TG 950 IF C=0 THEN ? "No alarm set.": NEXT 

X:G0TO 970 
LC 960 D=PEEKtALRMB+l+2*X) :GOSUB 1148:? C 

; ;M$;" ";T$:NEXT X 

YN 970 ? :? "Press: X to exit or":? " 

A-J to set an alarm" 
SJ 980 GET tS4,A:IF A=88 THEN GOSUB 1480 :R 

ETURN 
NJ 998 IF A<65 OR A>74 THEN 980 
BQ 1008 A=A-65:IF PEEK tALRMB+2*A) =8 THEN 

1830 

WT 1818 ? :? "MHJM< ":CHR$tA+193) : "I 



IK 1828 C=PEEKtALRMB+2*A) : D=PEEK IALRMB+1+ 

2*A):G0SUB 1140:? C;":";M$:" ":T$ 
FF 1838 ? :? :? » Set C»;CHR$ 

tA+65);") for what hour":? " 
to to unset alarm)"; : INPUT C 
TV 1840 IF C=0 THEN POKE ALRMB+2KA, c : GOTO 

948 
HP 1850 ? "How many Minutes after the hou 

r";:INPUT DiPOKE ALRMB+2*A+i,D 
UJ I860 PRINT " tA)M or 

tP)M?"; 
TW 1870 GET tt4,X:IF X=65 THEN TS="AM":GOT 

1188 
OQ 1888 IF X=80 THEN T$="PM":GOTO 1100 
RC 1090 GOTO 1070 



1180 IF C<12 AND T$="PM" THEN C=C+12 
ME 1110 IF C=12 AND T$="AM" THEN C=C+12 
RJ 1120 POKE ALRMB+2*A,C:G0T0 940 
KD 1130 REM TO CONVERT C IHR) AND D tMIN) T 

PRINTABLE FORMS C;M$;T$ 
WF 1140 T$="PM":IF C<12 OR C=24 THEN T$=" 

AM" 
HR 1150 IF C>12 THEN C=C-12 
IV 1160 IF D<10 THEN M$="0" : MS t2) =STR$ fD) 

iGOTO 1188 
EK 1178 M$=STR$tD) 
AZ 1188 RETURN 
ZF 1198 REM ROUTINE TO SHOW CURRENT TIME 

UAUES. USEFUL FOR TIMING SOMETHING. 
IY 1288 JIF=PEEKtl8)*65536+PEEKtl9)*256+P 

EEKt28):? "JIFFIES = "; JIF ! JIF=INT tJIF 

/68):? "SECONDS = ";JIF 
LY 1218 C=INTtJIF/ r 3688) ! JIF=JIF-368B*C :D= 

INT tJIF/60) :S=JIF-60*D: GOSUB 1140:? "T 

IME IS> ";C;":";M$; ;S;" ";T$ 

AJ 1220 RETURN 

QA 1230 REM PRINT TIME IN DIGITAL FORM TO 


TN 1240 MID=36 
EB 1250 COLOR 0:FOR X=CY+YDI+1 TO CY+YDI+ 

lOiPLOT CX-MID,X:DRAMTO CX+WID, X: NEXT 

X 
BS 1268 COLOR 1 : FOR X=CY+YDI TO CY+YDI+11 
STEP 11: PLOT CX-MID,X:DRAMTO CX+HID,X 

: NEXT X 
EJ 1270 FOR X=8 TO 1:PL0T CX-HID+X, CY+YDI 

IDRAMTO CX-HID+X, CY+YDI+11: NEXT X 
Y5 1280 FOR X=8 TO 1:PL0T CX+WID+X, CY+YDI 

IDRAMTO CX+MID+X, CY+YDI+11: NEXT X 
AX 1298 C=IH:D=IM:GOSUB 1140 : H$=STR$ tC) :I 

F C<10 THEN H$=" ":M$t2)=STR$tO 
PI 1308 M$t3)=":":M$t4)=M$:M$t6)=" " 
GU 1318 H$t7)=T$:Y=CY+YDI+2:X=CX-HID:G0SU 

B 1330: RETURN 
LL 1320 REM MRITE STRING H$ AT X,Y IN GR. 

8 
TN 1330 A=48ttY+PEEKt88)+PEEKt89)*256+INTt 

tX) /8) : BS=256*PEEK t756) 
JY 1340 FOR C=l TO LEN IH$) : D=ASC (H$ tC, C) ) 

SIF D<95 THEN D=D-32 
BS 1358 BT=BS+D*8iF0R CC=BT TO BT+7:P0KE 

A+C+40»tCC-BT), PEEK tCC) : NEXT CCiNEXT C 

: RETURN 
IS 1360 GRAPHICS OiSETCOLOR 2, 8, 8 ! SETCOLO 

R 1,8,18 
OD 1370 ? 



HOM TO USE THE ANADIG CLO 



FX 1380 ? 

ST 1390 ? "Since this clock works off an 
internalclock, you will only have to s 
et the" 
SD 1400 ? "tiMe every time you power up t 
he":? "coMputer. To set the clock jus 
t" 

"answer the questions. To set 
"clock accurately, enter the se 



"question just as that tiMe pas 

:? "BBBPapaaBiHiai" 

"You can set up to 10 alarms. 
a 1 a PMS, press the space- bar . " 

:? "BmEQaiEmaanniraEnH" 

"To quit the clock just press E 



OF 1410 ? 

the":? 

conds" 
XO 1420 ? 

ses." 
ND 1438 ? 
TD 1440 ? 

To set 
HZ 1450 ? 
UK 1460 ? 

SC." 

DN 1470 ? :? : RETURN 
YH 1480 GRAPHICS 24:SETC0L0R 2,0,4:SETC0L 

OR 4, 0,6! COLOR 1: RETURN 
TV 30008 RESTORE 30010 : FOR X=1536 TO 1627 

.-READ YiPOKE X,Y:NEXT X: RETURN 
PH 30010 DATA 160,8,24,173,48,2,185,5,133 

,283,173,49,2,185.8,133,284,165,283,18 

5,96,133,285,165,284,185,8,133 
OS 38828 DATA 286,173,49,2,56,233,31,141, 

238,2,165,89,289,283,288,7,173,230,2,1 

33,89,288,13,178,177,283,133 
HH 38838 DATA 89,138,145,203,24,185,15,14 

5,285,165,89,141,88,6,165,88,141,79,6, 

169,8,162,30,153,88,127,288 
HF 38848 DATA 288,258,238,80,6,202,208,24 

4,104,96 
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LISTING 8: BASIC 



5,285,165,89,141,88,6,165,88,141,79,6, 
169,8,162,38,153,88,127,288 
WF 38848 DATA 288,258,238,88,6,282,288,24 
4,184,96 



ICO 



ZK 18 GRAPHICS 8 : GOSUB 38888 : SETCOLOR 2,8 
, 8 : SETCO LOR 1,8,8 

zx 28 ? " i>»i[iiiaitoMiii»ji];»j{Mi«rij:ia-Tsn 

nETTl ":? :? "To use prograM, use joystic 

k to Move" 
BY 38 ? "graphics cursor around. Press t 

he":? "fire button to nark points for 

the" 
SJ 48 ? "prograM to connect. When you ar 

e":? "done, press START. Now, pressin 

g the" 
EE 58 ? "joystick UP and DOWN will shrink 
and":? "expand the picture. Moving t 

he" 
YZ 68 ? "joystick left and right will mov 

e the" 
UD 78 ? "picture left and right. Pressin 

g the":? "fire button will rotate the 

picture":? "18 degrees." 
IC 88 ? :? "If you try to Move the pictur 

e too":? "far left or right or a rotat 

ion Moves" 
III 98 ? "part of the picture off the sere 

en,":? "the picture autoMatically shri 

nks to":? "fit!" 

UF 188 OPEN 83,4,8,"K:";? :? "Press 1:1**11:1 

□ to begin.": GET 83, A: CLOSE 83 
AF 118 CX=168 :CY=96:C18=C0SC8. 17453) :S1B= 

SIN C8. 17453) 
ZT 128 GRAPHICS 24:C0L0R iiSETCOLOR 2,8,8 
AD 138 FOR X=16 TO 319 STEP 16 : PLOT X,CY: 

DRAMTO X+1,CY:NEXT X:FOR Y=12 TO 191 S 

TEP 12:PL0T CX,Y:DRAMTO CX+1,Y:HEXT Y 
NV 148 DIM A(188),BC188) :P=l:X=8iY=8 
JR 158 FOR T=8 T8 1:L0CATE CX+X,CY+Y,Z: 

LOR CZ=8):PL0T CX+X, CY+Y : NEXT T 
PY 168 A=15-STICKCB) ! IF A>7 THEN A=A-8:IF 

CX+X<318 THEN X=X+1 
RN 178 IF A>3 THEN A=A~4 ! IF CX+X>1 THEN X 

= X-1 
RR 188 IF A>1 THEN A=A~2 ! IF CY+Y<198 THEN 

Y=Y+i 
TG 198 IF A>8 THEN A=A~1 ! IF CY+Y>1 THEN Y 

=Y-1 
SU 288 IF STRIG(8)=8 AND P=l THEN AC1)=X: 

B CI) =Y: COLOR liPLOT X+CX-1, Y+CY : P=P+i 
CC 218 IF STRIGC8)=B AND P>1 THEN A(P)=X: 

BCP)=Y:COLOR l:PLOT X+CX, Y+CY: DRAMTO A 

IP-i) +CX, B tP-1) +CY : P=P+1 
UM 228 IF STRIG(8)=B THEN 228 
GJ 238 IF PEEKC53279)=7 THEN 158 
ZG 248 IF P<3 THEN ? "You Must draw at le 

ast 1 line!":END 
AE 258 P=P-l: COLOR 1:M=1:S=8 
KJ 268 TRAP 358 i PLOT S+A Ci)*M+CX, B C1)*M+C 

Y 
NN 278 FDR X=2 TO P: DRAMTO S+A CX)*W+CX, B C 

X)*H+CY:NEXT X 
DI 288 X=USRtl536) 
NU 298 IF STICK C8) =13 THEN M=H+8.1:G0T0 2 

68 
AJ 388 IF STICK C8) =11 AND S>6~CX THEN S=S 

-5: GOTO 268 
RV 318 IF STICK CB) =7 AND S<CX-6 THEN S=S+ 

5: GOTO 268 
ID 328 IF STICK 18) =14 AND H>8 THEN H=H-8. 

HGOTO 268 
OF 338 IF STRIGC8)=8 THEN FOR X=l TO P : A= 

A (X) : B=B CX) : A CX) =A*C1B-B*S18 : B CX) =A*S1 

8+B*C10:NEXT X!G8T0 268 
PU 348 GOTO 298 
FL 358 H=H-8. liGOTO 268 
TV 38888 RESTORE 38818: FOR X=1536 TO 1627 

:READ Y:POKE X,Y:NEXT X : RETURN 
PH 38818 DATA 168,8,24,173,48,2,185,5,133 

,283,173,49,2,185,8,133,284,165,283,18 

5,96,133,285,165,284,185,8,133 
QS 38828 DATA 286,173,49,2,56,233,31,141, 

238,2,165,89,289,283,288,7,173,238,2,1 

33,89,288,13,178,177,283,133 
MM 38838 DATA 89,138,145,283,24,185,15,14 



LISTING 9: ASSEMBLY 



18 ;Page flipping routine. After using 


28 ;GR.24, GR.9-11, call this routine 


38 ;with X=USRC1664) to copy backgrnd 


48 jto foregrnd page. Backgrnd page 


58 ;is the one PLOT and DRAMTO 


68 ;effect, and foregrnd is the one 


78 jti 


isplayed. 


88 ;To clear 


the whole background 


98 ; screen, just do an X=USR(1715) 


8188 


, 




8118 


*= 


$8688 


8128 


MEMTOP : 


: $82E5 MeM Top pointer. 


8138 


SAUMSC : 


: $58 video MeM pointer 


8148 


SDLSTL : 


: $8238 Pointer to DL 


8158 


LDX 


SDLSTL+1 Find an 


8168 


INX 


area 


8178 


STX 


FORPNT+1 to store 


8188 


TXA 


background 


8198 


SEC 


screen 


8288 


SBC 


832 and set 


8218 


STA 


MEMTOP+1 up the 


8228 


STA 


SAUMSC+i indexed 


8238 


STA 


BAKPNT+i addressing 


8248 


LDA 


SAUMSC coMMands 


8258 


STA 


BAKPNT for 


8268 


STA 


FORPNT copying. 


8278 


LDY 


88 Copy 


8288 


LDX 


838 the 


8298 


LOOP LDA 8,Y 7688 


8388 


STA 


8,Y byte 


8318 


INY 


background 


8328 


BNE 


LOOP buffer 


8338 


INC 


BAKPNT+i to 


8348 


INC 


FORPNT+1 the 


8358 


DEX 


foreground 


8368 


BNE 


LOOP screen. 


8378 


PLA 


unused paraMeter 


8388 


RTS 


Return. 


8398 


CLS LDA 


SDLSTL+1 Make sure 


8488 


SEC 


there's a 


8418 


SBC 


831 background 


8428 


STA 


MEMTOP+1 screen. 


8438 


STA 


CLSPNT+1 Set 


8448 


LDA 


SAUMSC indexed 


8458 


STA 


CLSPNT addressing. 


8468 


LDA 


88 Fill 


8478 


LDX 


838 the 


8488 


LDY 


88 7688 


8498 


L00P2 STA 8,Y byte 


8588 


INY 


background 


8518 


BNE 


L00P2 buffer 


8528 


INC 


CLSPNT+1 With 


8538 


DEX 


zeroes 


8548 


BNE 


L00P2 telear). 


8558 


PLA 


Pull unused arguMent 


8568 


RTS 


Return. 


8578 


CLSPNT : 


: L00P2+1 


8588 


BAKPNT : 


: LOOP+1 


8598 


FORPNT : 


: L00P+4 


8688 


.END 



LISTING 10: BASIC 

TN 31888 RESTORE 31818: FOR X=1664 TO 1751 
IREAD YiPOKE X,Y:NEXT X:RETURN 

» 31818 DATA 174,49,2,232,142,164,6,138, 
56,233,32,141,238,2,133,89,141,161,6,1 
65,88,141,168,6,141,163,6 
ZY 31828 DATA 168,8,162,38,185,88,127,153 
,88,159,288,288,247,238,161,6,238,164, 
6,282,288,238,184,96,173,49 
EA 31838 DATA 2,56,233,31,141,238,2,141,2 
84,6,165,88,141,283,6,169,8,162,38,168 
I ,8,153,88,127,288,288,258 
UY 31848 DATA 238,284,6,282,288,244,184,9 
6 fl 
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BASIC Editor II is a utility to help you 
enter BASIC program listings published 
in ANALOG Computing. To simplify the 
identification of errors, each program 
line is evaluated immediately after it's 
typed, eliminating the need for cumber- 
some checksum listings. When you've 
finished entering a program using BAS- 
IC Editor II, you can be certain it contains 
no typos. 

An option is provided for those who 
wish to use standard BASIC abbreviations. 
Also, the program retains all Atari edit- 
ing features. Finally, for those who prefer 
to type programs the conventional way, 
using the built-in editor, a post-processing 
mode is available. It allows you to check 
typing after the entire listing has been 
entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below — exactly. 

Disk version 

(1) Type in Listing 1, then verify your 
work with Unicheck (see Issue 39). 

(2) Save the program to disk with the 
command SAVE "D.EDrWRLl.BAS". 

(3) Clear the computer's memory with 
the command NEW. 

(4) Type in Listing 2, then verify your 
work with Unicheck. 

(5) Run the program (after saving a 
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backup copy) and follow all the on-screen 
prompts. A data file will be written to 
your disk. 

(6) Load Listing 1 with the command 
LOAD "EDITORL1.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"DML.DAT". 

(8) Save the resultant program with the 
command LIST "D.EDTWRII.LST". 

Cassette version 

(1) Type in Listing 1 and verify your 
work with Unicheck. 

(2) Save the program to cassette with 
the command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with 
the command NEW. 

(4) Type in Listing 2 and verify your 
work with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be writ- 
ten to your cassette. 

(6) Rewind the cassette. 



If the program you're 

entering is particularly 

long, you may need to 

take a break. 



(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 
with the command ENTER "C:". 

(9) On a new cassette, save the resultant 
program with the command LIST "C:". 

Using the Editor 

Take a look at one of the BASIC pro- 
gram listings in this issue. Notice that 
each program line is preceded by a two- 
letter code. This code is the checksum for 
that line; it's not a part of the program. 

To enter a program listing from the 
magazine, load BASIC Editor II with the 
ENTER command, and run it. You'll be 
asked if you wish to allow abbreviations 
(see your BASIC manual). If you do, type 
Fand press RETURN. Otherwise, type N. 

Note: If you set BASIC Editor II to al- 
low abbreviations, the program will run 
slightly slower. 



Your screen will now be divided into 
two "windows." The upper window will 
display each line after it's processed, as 
well as the checksum generated for that 
line The lower window is where program 
lines are typed and edited. 

When the program's waiting for input, 
the cursor will appear at the left margin 
of the typing window. Type a program 
line and press RETURN. The line will be 
evaluated and reprinted in the message 
window, along with the checksum 
generated. 

If the checksum matches the one in the 
magazine, then go on to the next program 
line. Otherwise, enter the command E 
(edit) and press RETURN. The line you 
just typed will appear in the typing win- 
dow, where you may edit it. When you 
think the line has been corrected, press 
RETURN, and it'll be reevaluated. 

Note: You may call up any line previous- 
ly typed, with the command E followed 
by the number of the line you wish to 
edit. For example, E230 will print Line 
230 in the typing window. Do not attempt 
to edit any program lines numbered 32600 and 
higher. These lines fall within the BASIC 
Editor II program. 

If you're using BASIC abbreviations, 
the two versions of the command E work 
slightly differently. The command E, 
without a line number, will call up the 
line exactly as you typed it. When you ap- 
pend the line number, the line will be 
printed in its expanded (unabbreviated) 
form. 

Leaving the Editor 

You may leave BASIC Editor II at any 
time, by entering either B (BASIC) or Q 
(quit). If you type B, the Editor will return 
you to BASIC. Enter LIST to review your 
work, if you wish. Note that lines 32600 
and above are the Editor program. Your 
work will appear before these lines. To 
return to the Editor, type GOTO 32600. 

Type Q, and you'll be asked if you real- 
ly want to quit. If you type Y, the Editor 
program will be erased from memory, 
and you may then save your work in any 
manner you like. If you type N, the Q com- 
mand will be aborted. 

Large listings 

If the program you're entering is par- 
ticularly long, you may need to take a 
break. When you want to stop, type Q and 
press RETURN, then save your work to 
disk or cassette. When you're ready to 
start again, load the program you were 
working on, then load BASIC Editor II 
with the ENTER command. Type GQ/O 
32600, and you're back in business. 



The post-processor 

Many people may not want to use BAS- 
IC Editor II when entering a program list- 
ing, preferring, instead, the Atari's built-in 
editor. For that reason, BASIC Editor II 
will allow you to check and edit your pro- 
grams after they've been typed. 

To take advantage of this option, type 
any magazine program in the convention- 
al manner, then save a copy to disk or cas- 
sette (just in case). With your typed-in 
program still in memory, load BASIC Edi- 
tor II with the ENTER command, then 
type GOTO 32600. 

Respond with Af to the "abbreviations" 
prompt. When the Editor appears on 
your screen, enter the command P (post- 
process), and the first program line will 
appear in the typing window. Press 
RETURN to enter it into the Editor. 

The line will be processed, and the 
checksum, along with the program line, 
will be printed in the upper window. If 
the checksum matches the one in the 
magazine, press RETURN twice, and the 
next line will be processed. 

If you find you must edit a line, enter 
the command E, and the line will be 
moved back to the typing window for 
editing. 

When the entire listing has been 
checked, you'll be asked if you wish to 
quit. Type Fand press RETURN. The Edi- 
tor program will be removed from 
memory, and you may then save the edit- 
ed program in any manner you wish. 

Murphy's Law 

Anyone who's been associated with 
computing knows this is the industry 
Murphy had in mind. You may find that, 
after typing a program with BASIC Edi- 
tor II, it still won't run properly. There are 
two likely causes for this. 

First, it may be that you're not follow- 
ing the program's instructions properly. 
Always read the article accompanying a 
program before attempting to run it. 
Failure to do so may present you with up- 
setting results. 

Finally, though you can trust BASIC 
Editor II to catch your typos, it can't tell 
you if you've skipped some lines entirely. 
If your program won't run, make sure 
you've typed all of it. Missing program 
lines are guaranteed trouble. 

One last word: Some people find it an 
unnecessary and nasty chore to type REM 
lines. I don't condone the omission of 
these lines, since they may be referenced 
within the program (a bad practice, but 
not unheard of). If you want to take 
chances, BASIC Editor II is willing to 
comply. 
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by Joe McManus 



ou've passed all the security 
procedures and are now standing 
in Crisis Command Headquart- 
ers. The 30-yard long electro-map seems un- 
commonly serene. As you relieve the Watch 
Commander, you can't help noticing his hag- 
gard face and bloodshot eyes. You log on, and 
the display generates your equipment status 
and an overview of the city. 
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5E33:9 
BCD:2 



TI*«: 12:46 



EHIE 



SEND 



RECALL 



STATUS 



AN5NER PHOME 



If you have the right 

combination and 

number of vehicles to 

handle the situation, 

the people will be 

saved. On the other 

hand, if you don't get 

the right combination 

there in time.... 
HINT: Up to four 

emergencies may be 

ongoing at the same 

time. 



Looks good! You have your full comple- 
ment of emergency vehicles. Suddenly, an 
alarm rings and a message flashes on the 
screen . . . 

"Sniper on roof at Theater Center." 

Crisis Center is a 54-minute real-time simu- 
lation that takes place in one of three ci- 
ties. The object of the game is to resolve 
emergencies that arise by sending the ap- 
propriate equipment needed to handle 
the situation. 

For example, there may be a hotel burn- 
ing somewhere. You have ambulances, fire 
trucks, police cars and SWAT teams at 
your disposal. Crowd control could be- 
come a real problem; so you had better 
send some police cars along with the fire 
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trucks. And, of course, you'll need some 
ambulances. 

If you have sent the right combination 
and number of vehicles to handle the sit- 
uation, the people will be saved. On the 
other hand, if you don't get the right com- 
bination there in time. . .well, you lose 
points for losing lives! If you lose enough 
points, you'll be fired and the game will 
end. The more serious emergencies are 
worth more points. Therefore, you should 
try to resolve the most critical situations 
before handling the lesser emergencies. 

Playing the game 

After pressing START, you'll be asked 
to choose a city. Each city has its own lev- 
el of difficulty based on crime rate and 
population. Dallas is the easiest game, fol- 



lowed by L.A. and then New York. When 
you have made your selection, a map of 
your city will appear at the top of the 
screen and the game will begin. 

The top section of the screen also con- 
tains a status display that is continually 
updated throughout the game. The status 
screen displays readouts of how many of 
each vehicle are currently available at 
headquarters, an emergency counter 
which shows how many crisis situations 
are currently ongoing, your current score 
and a real-time clock. The game begins 
at 12:30 p.m. and will end at 1:39 unless 
your score falls below zero; in which case 
the simulation is terminated. 

You have two communication links at 
headquarters. The primary communica- 
tion system at Crisis Command is a half- 
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CRISIS CENTER 



duplex system. To gain control of this 
communication system you must wait un- 
til any message you are receiving is 
finished and then press the trigger but- 
ton to obtain sending priority. Once you 
have communication control, you'll see a 
command screen. The other communica- 
tion link is the emergency phone which 
is explained in the following command 
section. 

Commands 

Select one of the four commands by 
moving the joystick in the designated 
direction. 

SEND: This allows you to dispatch vehi- 
cles to crisis locations. After selecting the 
send command, another stick diagram 
appears. Choose which type of vehicle to 
send. Then the locations are given in a 
stick diagram with the choice "MORE" at 
the bottom. If the location you wish to 
send a vehicle does not appear on the 
menu, select the MORE option until you 
find it. 

You'll then be asked how many units 
you want to send. Type the number and 
press RETURN. You'll hear the units leave 
Command Headquarters. 

RECALL: You'll be prompted for which 

v V 




working on your current emergency and 
answer the phone if you wish to avoid los- 
ing points. 

You begin the game with 200 points. If 
your score falls below zero, the game is 
over and you're fired from your position 
as Watch Commander. The simulation is 
designed to be a test of endurance, recall 
and common sense. The emergencies 
have been worded to enhance the sense 
of realism. 

There is no pause feature in Crisis 
Center since you should never leave a 
watch station unattended. However, if you 
must pause the game, you should select 
the status command and choose a vehi- 
cle. The status screen will stay up until you 
press the fire button. Though the clock 
will not appear to change during the 
break, it's still running. So if the phone 
was ringing when you took a break, and 
you're gone long, when you come back 
you'll lose some points. 

HINT: Up to four emergencies may be on- 
going at the same time. One limitation 
the program has is that it can only solve 
one emergency at a time, so it only checks 
for the correct solution after a send 
command. 

If you have two emergencies occurring 
at the same location and feel you have 
sent enough equipment to resolve both 
emergencies, then after you receive points 
for one of them, send another unit to get 
the points for the other emergency. 



Crowd control could become a problem; 

so you had better send some police 

cars along with the fire trucks. 

And, of course, you'll 

need some ambulances. 
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type of unit you wish to recall and from 
what location. If you attempt to recall 
more units from a location than there ac- 
tually are, no units at all will be returned 
and you'll have to try again. 

STATUS: This command is included in 
case you forget where your emergency 
teams are located. For instance, if all your 
fire trucks are off-station, you must recall 
them before they can be sent again. 

Select which type of vehicle you need 
a status report on, and all ten locations 
will be displayed with how many of that 
unit type are there. 

PHONE: Throughout the game the emer- 
gency phone may ring. It rings more often 
in the higher difficulty games. You must 
select the "answer phone" command to 
find out what emergency is being phoned 
in. 

If you do not answer the phone in two 
to three minutes from when the phone 
first starts ringing, that emergency will 
have deteriorated to the point of disaster, 
and an unanswered phone message will 
appear that describes the result. The 
value of that particular emergency will be 
deducted from your score. 

The phone emergency could be one of 
small point value, like a simple traffic ac- 
cident. On the other hand, it could be 
worth lots of points; so you should stop 




LISTING 1: BASIC 

&& 100 REM XXXXXXXXXMXXXXXXXXXX 
NF 118 REM * CRI5I5 CENTER * 
VH 128 REM * BY Joe McManus * 
GO 136 REM * for * 
EQ 148 REM * ANALOG COMPUTING * 
AK 158 REM xxxxxxxxxxxxxxxxxxxx 
RA 168 CLR 

QH 178 DIM RE5$(220),RESlSC22O) ,RE52$£228 
),DIS$(220), ANS(44),EQS(48),PLC(4),EME 
R (4) , EQU (4) , PLACE (40) , HIS (20) , H2$ (281 
IB 188 DIM TIMES (5), AS (92), BS (240) , X$ (60) 
, BLANKS (40) . CS (59) , IS (59) , TS (59) , YS £59 
) ! 5$ £59) , H3S (20) , N4S C203 , H5S (20) 
GD 185 DIM CHS(1):EMS=0 
yz 190 TS=O:C8=0:C1=1:C2=C1+C1:C3=C2+C1:C 

f4=C3+Cl:C5=C4+Cl:C6=C5+Ci:C7=C6+Cl:C8= 
C7+C1 ! C9=C8+C1 : C10=C9+C1 : C11=C18+C1 
A 2O0 BLANKS=" 

" : R=2468 : TIMES="'08 : 00" : B 
S (201. 240) =BLANKS:DOPLACE=0: GOTO 470 
LR 210 X$(C1,20)=BLANKS:X$(21,40)=BLANKS: 

RETURN 
AI 220 11=8 
ZC 230 II=II+l:IF XS (11,11+1)=" " THEN 5 

P0T=II+l: RETURN 
NG 240 GOTO 230 
YE 260 POSITION A,B:? BLANKS; BLANKS; : G05U 

B 308: RETURN 
OL 270 B=B+C2:IF B>22 THEN FOR I1=C1 TO 6 
00:NEXT Il:B=13:F0R I2=C10+C2 TO C10+C 
8:P0SITI0N CO, 12:? BLANKS; :NEXT 12 
IR 288 GOSUB 388: RETURN 

EI 298 SOUND C3, ASC £A$ £1, I) ) , 12,C10 ! FOR D 
=C1 TO 34!NEXT DiSOUND C3, CO, CO, CO : RET 
URN 
YZ 300 IF TSOC1 THEN 460 

CN 310 POSITION 33, C3 : ? "GEE: "; EQU (C2) ! PO 
SITION 33, C5:? "Hul: ,, ;EQU(C3) ! POSITION 
33, C7:? "HE: "; EQU (CI) 



PK 320 POSITION 23,1!? " p 

:FOR 11=2 TO 9SP0SITI0N 23,11:? 

OSITION 38,11!? "|";: NEXT II 
UN 330 POSITION 23,10:? ■" 



— "I" 

■;:P 



QG 335 EMS=0:FOR DD=1 TO 4 : IF EMER(DD)<>0 

THEN EMS=EM5+1 

UH 336 NEXT DD:P0SITI0N 26, C7:? "HHHH"; : 

POSITION 28,C8i? EMS 
YH 340 POSITION 33,C9i? "0ffl: "; EQU £C4) : IF 
SC0RE<C8 THEN POSITION C4,C0:? "ia22Y0 

U ARE FIRED! ";:P0KE 7<?9,C8:G0T0 250 
BO 350 IF PEEK(18)=C3 THEN POSITION C4,C0 

:? "332 GAME OUER ";:GOTO 250 
HN 360 TIME=£PEEK£20)+PEEK£19)*256+PEEK£1 

8)*256*256)/60: POSITI ON 27 ,C5i? " 

■■;:position 26, c4:? "aanai"; 

DO 370 MIN=INT((TIME/36O0-INT (TIME/3600)) 
*60) +INT (ASC (TIMES (4,4)) -48) *10+INT (AS 
C (TIMES (C5 , C5) ) -48)*1 

NL 375 POSITION 27, C5 : ? SCORE 

MM 380 HRS=INT((TIME/21600O-INT (TIME/2160 
80) )*60) +INT (ASC (TIMES (CI , CI) ) -48) *C10 
+INT (ASC (TIMES (C2 , C2) ) -48)*C1 

JZ 385 IF PH0NE=1 THEN GOSUB 2255 



BO 390 IF MIK>59 THEN HRS=HRS+C1 ! MIN=MIN- 

60 
HE 400 IF HRS>12 THEN HRS=HRS-12 
HZ 410 IF HRS<C18 THEN POSITION 35,C11:? 

"0";HRS; :G0TO 430 
ET 420 POSITION 35,C11:? HRS; 

AC 430 POSITION 37,C11:? 

NX 440 IF MIN<C10 THEN POSITION 38,C11:? 

"0";MIN; iGOTO 460 
YA 450 POSITION 38,C11:? MIN; 
ZM 460 RETURN 
HN 470 GRAPHICS CO: POKE 752, CI: POKE 710,4 

8:P0KE 712,48:P0KE 709, 54 ! A=C2 ! DL=PEEK 

(560) +PEEK (561) *256+C4: POKE DL~C1,70 
QP 480 POKE DL+12,130 
TD 490 POKE DL+C2,C6:P0KE DL+13, 130 : POKE 

DL+16,130:F0R I=CO TO 23: READ A SPOKE 1 

686+1, A! POKE 1710+1, A:POKE 1734+1, A 
HB 495 NEXT I 
QK 500 POKE 1688,2 
ZL 510 POKE 1747,150:P0KE 1699, 174 : POKE 5 

12,150:P0KE 513,C6:P0KE 54286, 192 ! EQU C 

CI) =C8 : EQU (C2) =C9 : EQU (C3) =C8 
UQ 520 EQU (C4)= C2:PH0NE=8: GOSUB 580 : POSIT 

ION 9,14:? " IJ:l=«--m-l | M:>»<iM:l4rH:] 1 ' 
AL 530 IF (PEEK (53279) <>C6) AND (STRIG (0) 

<>0) THEN 530 
AI 540 POSITION 9,14:? " 

II 

KR 545 GOTO 20OO 

YY 548 B=23: GOSUB 270 

FO 550 TIMES="12: 45": GOSUB 260: POKE 20, CO 

:POKE 19,C0:P0KE 18,C0:F0R I=C1 TO 240 
STEP 40 :BS£I, 1+39) =BLANKS: NEXT I 
SH 560 B=2l! GOSUB 270: RESTORE HHERE:FOR I 

=C1 TO 220 STEP 20: READ XS : B$ (I, 1+19) = 

XSiNEXT I:READ R,DIF 
KR 578 TS=CO: GOSUB 580: GOTO 750: DATA 72,1 

69,160,141,10,212,141,24,208,141,26,20 

8,169,198,141,0,2,169,6.141,1.2,104,64 
UJ 580 RESTORE R:READ CS , IS, TS, YS, SS 
XP 598 A$="C RISIS CEHTER fafTTJ-H j'l^'JB JitilM j>^ 

M:><IM<:ra HOH MANYINCOMING MESSAG 

EYOU CAN'T DO THAT! UNITS" 
PH 600 POSITION C4, CO : FOR I=C1 TO 13:? AS 

(I,I);:GOSUB 290:NEXT I:B=Cl:A=C2 
TS 610 POSITION A,B:? CS: GOSUB 270 : P05ITI 

ON A,B:? IS:G0SUB 270:P0SITI0N A,B:? T 

SiGOSUB 270:P0SITI0N A,B:? YS 
HL 615 GOSUB 270: POSITION A,B:? SS : GOSUB 

270 
XD 620 POSITION 8,B:? BLANKS; : POSITION C8 

,B:? BS(201,219); : POSITION 29, B:? "TIM 

E: "; :TS=Cl:A=C2:G0SUB 270:RETURN 
KI 750 RESTORE 780 : B=21 : GOSUB 270:CS="May 

or says do sonethingHURRY COMMANDER!" 
GL 760 FOR I=C1 TO 220 STEP 20 : DISS (I, 1+1 

9)=BLANKS(C1,20) :NEXT I : RESS=DISS :RESi 

S=DISS : RES2S=DISS 
MD 770 FOR I=C1 TO 220 STEP 28 : READ XS : DI 

SS(I,I+19)=X$:NEXT I 
XV 780 DATA There is a FIRE at, Traffic ac 

Cident at,4-ALARM FIRE is at, BANK ROBS 

ERY at, A HEART ATTACK at, HIT & RUN at 
FD 790 DATA SNIPER on roof at, HOTEL burni 

ng at, 10 CAR pileup at, AIRPLANE on fir 
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e at, HIJACK report from 
MO 808 EQ$="FIRETRUCKS AMBULANCES POLIC 

ECARS SHATTEAMS " 
TE 818 FOR 1=1 T8 228 STEP 28: READ X$:RES 

$CI,I+19)=X$:NEXT I 
UM 828 DATA The fire is out at, Accident c 

leared at, The fire is out at, Cops stop 
holdup at,Uictin was saved at 
ME 838 DATA victim was saved at, Sniper ca 

ught at, Hotel safe at,Pileup cleared a 

t, Airplane saved at, Hijacker caught at 
GC 848 FOR 1=1 TO 228 STEP 28: READ X$:RES 

15 CI, 1+19) =X$! NEXT I 
NZ 858 DATA Fire killed 4 at, 2 Victims di 

ed at, 8 burned to death at, $8888. 80 st 

olen at, Elderly nan died at 

DJ 868 DATA The victim died at, 7liSE_5nip 



er escaped, Hotel destroyed at .78 in^iTi! 

FOUL-UP at, Airplane is ashes at 
PQ 878 DATA Plane in CUBA not 
HX 888 F8R 1=1 TO 228 STEP 28: READ X$ ! RES 

2$ CI, 1+19) =X$: NEXT I 
FS 898 DATA Fire is burning at, Traffic sn 

arled at, Fire is raging at, Cops dodgin 

g lead at, victiM going fast at 
ZS 988 DATA Meak-pulse report at, Sniper g 

ot one at, People screaming at, More car 

s wrecked at, Fuel nay explode at 
LQ 918 FOR I=C1 TO 48 : PLACE CI) =8 : NEXT I:F 

OR I=C1 TO C4:PLCCI)=8:EMERCI)=8:NEXT 

l:SC0RE=288:DATA Hostages scared at 
HO 920 FOR I=C1 TO C4 : READ AA : EQU CI) =AA ! N 

EXT I: FOR I=C5 TO 48: READ AA : ANS CI-C4) 

=AA:NEXT I 
CN 938 DATA 8,9,8,2,3,2,1,8,8,1,2,8,4,2,2 

,8,8,8,3,8,8,1,8,8,8,1,1,8,8,2,3,1,4,3 

,3,8,2,4, 4,8, 3,2,2,8,8,2,3,2 
HT 948 DATA JJTrn^SEND, RECALL, STATUS, AN5WE 

R PHONE, r?!T'H;liil=<:» , AMBULANCE C5) ,P OLICE C 

ARCS) ,5WAT TEAMCS) , FIRETRUCK CS) , GQEH1 
UN 950 DATA Un iver s ity P ark, Highland Park 

, Sunny vale, CEDE, HjG 3g,Mesquite,Hines B 

lvd., Second Ave.TUBuB 

AT 96fl x$C2i,2i)=" " : data HUE, Hens ley F 

ield,Six Flags Park, Theatre Center, Cot 

ton Bowl stadium 
HD 970 IF STRIGCO)=0 THEN 1060 
DU 975 IF PH8NE=C2 THEN GOSUB 2265: GOTO 1 

80O 
MK 988 R=INTCRNDC0)*800) : IF R<DIF THEN 18 

88 
SH 998 GOTO 978 
QJ 1000 FOR I=C1 TO C4:IF EMERCI)=0 THEN 

1028 
NJ 1818 NEXT I : GOTO 1610 
CR 102O R=INTCRNDCC0)*C11)+C1:IF R>C9 THE 

N R1=C7:G0T0 1848 
FC 1838 Rl=INTCRNDCC8)*C18)+Cl:IF R1=C7 T 

HEN 1830 
XH 1040 IF PHONE>Cl THEN 2275 
FU 1045 GOSUB 210 i X$CCi, 20) =DI5$ CR*20-19, 

R*20) : 11=8: GOSUB 228 
MH 1858 X$CSPOT,SPOT+20)=B$CRi*20-19,Ri*2 

8) : E=I : EMER CE) =R : PLC CE) =R1 : GOSUB 1388 : 

GOSUB 1330: GOTO 978 
NX 1868 R=INTCRNDC0)*200) :IF R<DIF OR PHO 

NE=1 THEN GOSUB 2200 
NQ 1065 B=2l! GOSUB 270: RESTORE 948:C=C8:G 

OSUB 1240: IF C=CO THEN B=21: GOSUB 270: 

GOTO 970 
EU 107O IF C<13 AND C>C8 THEN U=C2 : GOTO 1 

110 
PQ 1088 IF C=13 THEN 1488 
MJ 1898 IF C=14 THEN V=C1 : GOTO 1118 
YE 1188 IF C<C8 THEN U=C3 
PM 1110 GOSUB 1250 :CT=C1:C=C0: GOSUB 1240: 

IF C=CO THEN B=21: GOSUB 270: GOTO 970 
JK 1120 IF C<13 AND C>C8 THEN EQ=C3 
EE 1138 IF C<C8 THEN EQ=C4 
SC 1140 IF C=13 THEN EQ=C1 
TO 1150 IF C=14 THEN EQ=C2 
UF 1160 IF VOC3 THEN CT=CO : DOPLACE=l : GOT 

1435 
LJ 1178 A=12 
ZH 1188 1=9 :B=21: GOSUB 278: POSITION A,B:F 

OR J=8 TO 11:? EQ$CEQ*12-li+J,EQ*12-ll 



+J);: GOSUB 290: NEXT J:? ■■ status" 
IN 1185 B=B+2 
IR 1198 A=l:FOR I=C8 TO C8 STEP 2 : P05ITI0 

N A,Bi? B$CCI+1)*28-19, CI+1)*28-4);PLA 

CECCCI+i)*4)-4+EQ) iPOSITION 21, B 
MF 1288 ? B$CCI+2)*28-19, CI+2)*28-4); M "} 

PLACE C C CI+2) *4) - 4 + EQ) ; :B=B + 1:NEXT I 
DE 1210 ? :? - IJJJ.-iA^l.N.M'jrM.M.M-.T 

EH" 

05 1228 IF STRIGCO)<>0 THEN 1220 

JY 1238 B=21:G0SUB 278:F0R 1=18 TO 22:P0S 

ITION 8,1:? BLANKS; : NEXT I'.GOTO 978 
ZM 1240 IF NOT DOPLACE THEN READ H1$,H2$ 

, H3$ , H4$, H 5$ : CT =CT+C1 ! GOTO 1270 
XY 1245 W1$ = "EQEH1":READ W2$, W3$, W4$ : IF C 

T=C2 THEN READ W5$ : GOTO 1247 
YU 1246 H5$= n [HiTjrj» 
JF 1247 CT=CT+Ci!GOTO 1278 
HM 1258 H1$CC1,LENCH1$))=BLANK$:H2$CC1,LE 

N CW2$) ) =BLANK$ : H3$ CC1, LEN CW3$) ) =BLANK$ 

: H4$ CC1. LEN CW4$) ) =BLANK$ 
IF 1260 H5?CC1,LENCH5$))=BLANK$ 
ZS 1270 POSITION A,B:? HIS: POSITION A+18- 

CLENCH2$)/C2),B:? H2$J : POSITION A+18,B 

+C1:? "|": POSITION A+16-LENCH3$),B+C2 
DW 1275 ? H3$ 
NR 1280 POSITION A+17,B+2:? "— f-":P05ITI0 

N A+28,B+2i? H4$; SPOSITION A+18,B+3:? 

"|":POSITION A+18-CLENCH5$)/2),B+4 
EQ 1285 ? H5$ 

DU 1298 IF Hi$CCi,Cl)=" " THEN RETURN 
HJ 130O FOR 1=250 TO 30 STEP -20: FOR J=15 
TO CO STEP ~C1: SOUND C2, I, CIO, J : NEXT 

J 
HY 1310 FOR DE=C1 TO I : IF STICK CO) <>15 TH 

EN C=STICKCC8) : RETURN 
DA 1328 NEXT DE:NEXT I: RETURN 
FX 1338 GOSUB 268 ! POSITION A,B:FOR I=C1 T 

LENCXS):? X$CI,I)j : GOSUB 290: NEXT I: 

RETURN 
IT 1340 GOSUB 260! POSITION A,B:FOR 1=78 T 

87:? A$CI,I) ; :GOSUB 290:NEXT I:B=21: 

GOSUB 270SRETURN 
NH 1350 B=2i: GOSUB 278: POSITION A,B:FOR I 

=46 TO 53:? A$CI, I); iGOSUB 290:NEXT I: 

RETURN 
LB 1360 FOR J=C0 TO C3:SC0RE=SC0RE+ CANS CE 

MERCE)*C4-C3+J)*15) :NEXT J: RETURN 
UG 1370 FOR J=CO TO C3 :SCORE=SCORE- CANS CE 

MERCE)*4-3+J)*15) :NEXT J:RETURN 
UG 1388 B=21 iGOSUB 278: FOR I=C1 TO C3:P0K 

E 1712,242:P0SITI0N A+11,B:? A$C54,69) 

; "033" ;! POSITION A,Bi? BLANKS; 
RZ 1390 POKE 1712, 168! FOR J=C1 TO 28: NEXT 

J : NEXT I: RETURN 
DJ 1488 IF PH0NE>8 THEN POSITION 0,22:? B 

LANK$; :B=21:G0SUB 270:? "ANSWERING PHO 

NE . . . " ! PH0NE=3 : GOTO 1000 
RF 1418 B=21 iGOSUB 278: POSITION 9,19:? "N 

PHONE HAS RINGING" iGOSUB 1950IPOSITI 

ON 0,19i? BLANKS; :G0T0 970 
gj 1435 RESTORE HHERE 
LA 1440 GOSUB 1250 : C=C0 : GOSUB 1240:IF C=C 

THEN B=21 IGOSUB 270: GOTO 970 
XG 1458 IF C=13 AND CT<C3 THEN 1448 
ZR 1468 IF C=14 THEN PLC1=CT*C3-C2 
HR 1478 IF C<13 AND C>C8 THEN PLC1=CT*C3- 

Cl 
DU 1488 IF C<C8 THEN PLCi=CT*C3 
ZZ 1498 IF C=13 AND CT=C3 THEN PLC1=18 
IC 1588 D0PLACE=8iTRAP 1588 IGOSUB 1358: IN 

PUT C:TRAP 48800iIF U=l THEN 1540 
IF 1510 IF C>PLACECPLCi*4-4+EQ) THEN GOSU 

B 1340: GOTO 970 
ZB 1520 PLACE CPLC1*4~4+EQ) =PLACE CPLCl*4-4 

+EQ) -C i EQU CEQ) =EQU CEQ) +C I R=C1 i IF C=C1 

THEN R=CO 
NM 1530 GOSUB 260: POSITION A+C10,B:F0R 1= 

88 TO 91+Ri? AS CI, I); iGOSUB 298: NEXT I 

:? " l:l«U:i:nH ": :B=21:G0S1IB 270 
UU 1535 GOTO 978 
ID 1548 IF EQUCEQ)-C<C8 THEN GOSUB 134BEG 

OTO 970 
UF 1558 EQU CEQ) =EQU CEQ) -C: PLACE CPLC1K4-4+ 

EQ)=PLACECPLCl*4-4+EQ)+C:F0R I=C1 TO C 

4:IF PLCCI)=PLC1 THEN E=I : GOTO 1570 
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PB 1568 NEXT I : GOTO 1710 

RU 1578 FOR J=C8 TO C3 : IF PLACE CPLCl*4-3+ 

J)<ANSCEMERCE)*4-3+J) THEM 1718 
UW 1580 NEXT J:GOSUB 1788:G05UB 210:XSCCi 

, 28) =RESS CEMER CEJ *20-19 , EMER CEJ*28) ! II 
=8:G05UB 228 
YK 1590 XSCSPOT,SPOT+20J=BSCPLC1*2O-19,PL 

Ci*20) :G05UB 1368 
PD 1608 EMER CEJ =C0: PLC CIJ=C8:B=21: GOSUB 2 

70:G0SUB 1338:G0T0 978 
UO 1618 B=21: GOSUB 218: GOSUB 270:G0SUB 13 

8O:E=INTCRNDC0)«4)+l:IF RNDtCO)<0.5 TH 

EN 1678 
NC 1628 X$CC1,2OJ=RES2SCEMERCEJ*20-19,EME 

RCE)*20) :II=0!G05UB 220 
IE 1630 X$CSPOT,SPOT+2OJ=BSCPLCCEJ»20-19, 

PLCCEJ*20> 
SH 1648 IF RNDCCOK0.5 THEN 5=24 : G=39 : GOT 

1660 
XV 1650 S=Cl:G=23 

TL 1660 G05UB 260:P05ITI0N A,B:FOR 1=5 TO 
G:? C$CI,IJ; iGOSUB 290JNEXT IiGOTO 17 

00 
MY 1670 XSCC1,20J=RES1S tEMER CE>*20-19, EME 

RCE>*28) :II=8:G05UB 228 
YO 1680 X$CSP0T,SP0T+20)=BSCPLCCEJ*20-19, 

PLCCE)*20J :G05UB 1370 
OY 1690 EMER CE)=C0: PLC CEJ =C0 
IY 1700 GOSUB 1330:G05UB 278:G0T0 970 
HE 1718 V0L=12!0N EQ GOTO 1720,1740,1760, 

1778 
LC 1720 FOR I=C1 TO C4:F0R J=70 TO 15 STE 

P -C4:50UND CI, J+20, 14, VOL : 50UND C2,J, 

C10,V0L:NEXT J 
NI 1730 FOR J=15 TO 70: SOUND CI, J+20, 14, V 

OLiSOUND C2,J,170,U0L:NEXT J:UOL=VOL-C 

4 ! NEXT I: GOTO 978 
FC 1748 FOR I=C1 TO C4 : FOR J=40 TO 20 STE 

P -C4:50UND C1,J+C8,14,U0L:S0UND C2,J, 

C10,UOL:NEXT J 
MT 1750 FOR J=20 TO 40:S0UND C1,J+C8,14,V 

OLiSOUND C2,J,C18,V0L:NEXT J:UOL=UOL~C 

4:NEXT IiGOTO 970 
MA 1760 FOR I=C1 TO C4:50UND C1,110,14,V0 

LiFOR D=C1 TO 45:NEXT DiSOUND CI, 65, CI 

0,U0L:F0R D=C1 TO 45: NEXT D:V0L=U0L-C4 
HZ 1765 NEXT IiGOTO 970 
OR 1770 FOR I=C1 TO C5:F0R J=80 TO 50 STE 

P -C2:S0UND C1,220,12,U0L:S0UND C2,J,C 

10,U0L:NEXT J:V0L=V0L-C3:NEXT I 
ML 1775 GOTO 970 
HH 1780 FOR DD=1 TO 3 : SOUND 1, 96, 10, 18 ! FO 

R J=l TO 6:NEXT J:FOR J=l TO 6:S0UND 1 

,O,0,O:NEXT JlNEXT DD 
RT 1790 SOUND 1, 81, 10, 18 : SOUND 2,53,10,8: 

SOUND 0,64,10,8:F0R J=l TO 35JNEXT J:F 

OR J=0 TO 2! SOUND J,0,8,0:NEXT J 
ftP 1800 RETURN 

YL 1900 OPEN tt2.4,8,"K:":GET «2,CH 
UJ 1918 CHS=CHRSCCH> : CLOSE »2:F0R DD=20 T 

30SS0UND 1,DD,12,10!NEXT DD : SOUND 1, 

O,8,0:RETURN 
FM 1950 FOR DD=1 TO 50:S0UND 0,100,12,10: 

NEXT DDlSOUND 0, 8, 8, 8 : RETURN 

LO 2000 REM CHOOSE CITY 

TP 2010 POSITION 14,13:? "Mi['I'H=giM'Mlrt" 
XM 2015 POSITION 2,15:? "1. DALLAS 2. HE 

M YORK 3. LOS ANGELES" 
BQ 2020 GOSUB 1900:IF tCHS<"l"J OR CCHS>" 

3"J THEN GOSUB 1950SG0T0 2020 
RC 2O30 CH0ICE=ASCCCHSJ-48:OH CHOICE GOTO 

2040,2050,2068 
YH 204O HHERE=2480:G0T0 548 
ZM 2050 WHERE=2580:G0T0 548 
AC 2060 WHERE=2680:G0T0 548 
XE 2200 REM EMERGENCY PHONE 
GJ 2210 IF PH0NE>8 THEN 2215 
JZ 2212 TIME=CPEEKt28J+PEEKC19)*256+PEEKC 

18J*256*2561/68 
YR 2214 PHMIN=INT£CTIME/368B-INT{TIME/368 

8)J*68J+INT(A5CtTIME$C4,4JJ-48J*10+INT 

CftSC CTIMES CCS, C5J J -481*1 
TL 2215 PHONE=l: POSITION 7,22:? A$C14,42) 
OM 2220 FOR JJJ=1 TO 3 

BU 2230 FOR DD=8 TO 15: FOR K=l TO 3: SOUND 
2, 22+K , 10 , DD ! SOUND 1, 58-K, 10 , 15-DD : NE 



XT K:NEXT DD 
JC 2240S0UND 1, 8, 8, : SOUND 2,0,0,0:F0R J 

J = l TO 18: NEXT JJ.'NEXT J J J : RETURN 
RN 2255 IF PHMIN+2<MIN THEN PH0NE=C2 
BR 2256 RETURN 
NP 2268 REM DIDN'T ANSWER 
IF 2265 B=21: GOSUB 278 : FOR DD=C1 TO C3:P0 

KE 1712,242:P0SITI0N A+11,B:? "UNANSWE 

RED PHONE! !Q7Q"; : POSITION A,B 
EQ 2266 ? BLANKS; 

5M 2270 POKE 1712,160:F0R J=C1 TO 20 : NEXT 
JlNEXT DDiPOSITION 0,22:? BLANKS; : RET 

URN 
AN 2275 ON PHONE GOTO 2298,2288,2295 
FF 2288 GOSUB 218 : XS CC1, 20) =RES1S CR*20~19 

,R*20J : 11=0 .'GOSUB 220 
BW 2285 X$C5POT,SPOT+2OJ=BSCR1*20-19,R1»2 

0) : E=I : EMER (El =R : PLC CE1 =R1 : GOSUB 1330 : 

GOSUB 1370 : PHONE=0 : EMER (EJ =0 : PLC CEJ =0 
UN 2287 GOTO 978 
BZ 2298 ? "ERROR IN ANSWER OR NOT ANSWER" 

iSTOP 
GO 2295 GOSUB 218 : XS CC1, 20J =DIS$ CRK20-19, 

R*20J ! 11=0: GOSUB 220 
SS 2300 XSCSPOT,SPOT+2OJ=BSCR1*20-19,R1*2 

0) : E=I : EMER CEJ =R : PLC CEJ =R1 : GOSUB 1330 : 

PHONE=0: POSITION 8,12:? BLANKS; 
UJ 2385 GOTO 978 
UR 2488 DATA 

SP 2418 DATA 

YK 2428 DATA 

SR 2438 DATA 

XV 2440 DATA 

WT 2470 REM *** DALLAS *** 

SI 2480 DATA University Park, Highland Par 

k, Sunnyvale, Mesquite, Hi nes Blvd, Second 
Ave,Hensley Field 
FI 2490 DATA Six Flags Park, Theatre Cente 

r,the Cott on Bowl, DALLAS, 2588, 4 
IK 2500 DATA " 




UV 2510 DATA 
SF 2528 DATA 
ZC 2538 DATA 
ZN 2548 DATA 



■H I 
H\ 
P /i 
v/ nB 
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r /i I / / / Mesquite 
v/ nB //"^ 
i el| |/\_//A_ 
1 sv\/\_/ V 
II \- 

,/\ 2nd \_ 

/ I Ave\ 



KO 2570 REM *** NEW YORK **» 

MC 2580 DATA Brooklyn, Bronx, Queens, Manhat 

tan,Staten Island, Forty Second St.,J.F 

.K. Airport, Lincoln Tunnel 
ET 2590 DATA Statue of Liberty, United Nat 

ions, NEW Y ORK, 2 680, 120 
YJ 2600 DATA " 

IM 2618 DATA 

DQ 2628 DATA 

JB 2638 DATA 

TZ 2648 DATA 

~ B_ Atlantic. 

FK 2678 REM *** LOS ANGELES *** 

Nv 2680 DATA Santa Monica, Culver City,Bev 
erly Hil Is, Hollywood, San Pedro, Pasaden 
a,L.A. International, Disneyland 

RU 2690 DATA Hollywood Bowl, Security Plaz 
a, LOS ANGE LES, 2700, 85 

SP 2700 DATA " 




NA 2710 DATA 

PD 2720 DATA 

LU 2730 DATA 

JT 2740 DATA 



/ Pasadena. _ 
Hi / \ 

>o II /- 

1\_. Beverly / 
1 S. Hills / 

w — ^— 



Long 
/Beach 



AnaheiH. 
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Developers Bible 




When Leonard Tramiel, Atari vice 
president of Research and Development, 
was asked at the San Jose Atarifest in 1986 
if he had any plans to rework the de- 
velopers documentation for the Atari ST, 
his response was a cold, "Yes." And noth- 
ing else. Since then, nothing has been 
done to clean up the poor and sloppy 
documentation that is sold at f 350 as the 
official Atari ST developers kit. 

The developers kit includes six dis- 
kettes with Digital Research's develop- 
ment software for the 68000 (Atari ST's 



brain). Most of the software comes from 
DRFs original version of GEM for the 
IBM PC, so you will commonly find refer- 
ences to hardware items not found in the 
ST world. The documentation is pretty 
much just a photocopy of the original 
documentation for the IBM PC. There are 
addendums describing special operating- 
system programs on the ST that are avail- 
able to developers; however, everything is 
scattered over the 500 + pages of 
documentation. 

Other computer manufacturers (Apple 
and Commodore) have written very com- 
plete documentation of their operating 
systems and licensed the manuals to large 
publishing companies such as Os- 
borne/McGraw-Hill, Addison-Wesley and 
Bantam. These large book-publishing 
companies have terrific distribution to 
bookstores that carry technical books. At 
the local mall, you can find the complete 
listing of the Amiga operating system for 
just $19.95. 

Atari has never been known for its 
manual writing abilities, so many outside 
authors have written developer guide 
books and reference manuals for the ST. 
One of the best appears to be The Concise 
Atari ST 68000 Programmers Reference Guide 
by Katherine Peel. The guide is unique 
to the ST market because of its complete 
and thorough description of the Atari ST, 
inside and out. The table of contents in- 
cludes chapters on Monitor Output, 
Printer Interfacing, Floppy Disk I/O, DMA 
port access, Intelligent Keyboard I/O, 
Yamaha programmable sound-generator 
programming, TOS overview, 

BIOS/BDOS, GEM AES/VDI, System In- 
itialization, etc. All of the topics covered 
are necessary for development of appli- 
cations and utilities for the ST. 

Much of the Guide's information can 
also be found in other documentation 
from Atari and from the ST book series 
written by Databecker of West Germany, 
published by Abacus here in the U.S. 
However, the Guide pulls it all together 



into one large manual that includes a 
complete table of contents and index. 
The Guide is being marketed through 
Michtron in the U.S. and Canada. It has 
a suggested list price of only $19.95. We 
highly recommend the Guide as a substi- 
tute for the Atari developers kit (which by 
the way still hasn't been revised in the 
three years since the ST was released.) 

Game Boxes 

You've just bought a new game for your 
ST. You rush home, tear off the plastic 
wrap, shove the disk into your ST's drive 
and begin playing. That's probably the 
last time you will see the box and manual. 

Have you ever taken the time to read 
the box? 

Take for example this newly released 
piece of software from a popular games 
manufacturer: 

"All is well in Hyturian until the pirate 
planet, Nono, stealthily slips through the 
outer fringes of your screen and begins 
raiding solar shipping, lasering outposts 
and generally misbehaving." 

Sometimes the thought of the game 
designers sitting around throwing darts 
at a board covered with words, such as 
Nono, comes to mind. Let's hope they ha- 
ven't forgotten words like Shoporia (the 
planet of the malls), Diskiedroops (those 
horrible creatures that store information) 
and Niknik (well, I won't go into that one). 

Atarifest, DC 

The Washington, DC, area Atari user 
group is going to be holding its fourth 
Atarifest on October 1st and 2nd, 1988. 
The Atarifest will again showcase both ST 
and 8-bit software and hardware products. 
This show is unique in that it brings 
together several Atari groups from neigh- 
boring states. For more information, con- 
tact D.G Elmore, 506 N. York Road, 
Sterling, VA 22170. 

Companies mentioned: 

Glentop Publishers Ltd. 

Standfast House 

Bath Place 

High Street 

Barnet, Herts EN5 5XE 

01-441-4130 

Michtron 
576 S. Telegraph 
Pontiac, Ml 48053 
(313) 334-5700 

Abacus 

P.O. Box 721 1 

Grand Rapids, Ml 49510 

(616) 241-5510 



40 



AUGUST 1988' A.N.A.L.O.G. COMPUTING 




T 




I :HHI I 




<s? 



c* 



W/'ordlock 

^k ^^L / by Andy A. Lee 

YY If you have $10 million at home, 

I where do you think is a safer 
I place for it? The heavy-duty 
safe in your study or the center of your drive- 
way, where everyone can see it? 



The safe, of course, is the better 
place.The programs on your disks are like 
money on your driveway. You know most 
people who come by and see the money 
would take it if you're not around. This 
applies to your programs too! If you leave 
your disks lying around, sooner or later 
your programs will be copied without 
your authorization. 

Wordlock is a binary program that will 
stop all that. Using a password of up to 



The programs on your 
disks are like money on 

your driveway. You 
know most people who 

come by and see the 
money would take it if 

you're not around. 
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Wordlock 



14 characters, it assures you that no one 
else will have access to your programs. 

How does it do that? 

First of all, let's take a look at the pro- 
grams on your disks. Atari programs are 
made up of sequences of bytes, or num- 
bers between and 255. When you're sav- 
ing a program, the computer puts the 
program directly from memory to the 
disk. So when you're loading it, the com- 



The user will be asked 

to enter a password 

whenever the computer 

is going to save or load 

a program. You can 

enter up to 14 

characters as your 

password. 



puter just copies the sequences of bytes 
back to memory. 

Let's play a game: Assume we have a 
number, 2534, and we want to remember 
this number by writing it down on paper. 
But we don't want to let others know what 
this number is. So we add one to every 
digit of 2534. After we do that, we will 
have a new number, 3645. We can now 
write that down on a piece of paper and 
nobody will guess the number is actually 
2534. When we come back tomorrow to 
read the number, all we have to do is sub- 
tract one from every digit of 3645 to get 
the original number, 2534. 

So much for fun — let's get back to our 
computer. We know the programs are 
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made up of sequences of bytes, or num- 
bers between and 255, in the memory 
of our computer. The computer saves the 
programs to disk exactly as they are in 
memory. And the computer loads it back 
to memory exactly as they are on disk. If 
we add one to every byte as it goes to the 
disk, we will have a sort of code. 

If we want to restore the program, we 
should subtract one from every byte, and 
then put the result of the subtraction in 
memory. If we don't subtract one (copy 
the bytes exactly as they are on disk), the 
program will not be restored, because eve- 
ry byte will be off by one. See how it 
works? 

Similar techniques are used in Wordlock, 
though they are much more complicated 
than just subtraction or addition. Every 
character of your password or passphrase 
is used in the coding process. So if you 
misspell the word by one letter or leave 
a letter out, you will not be able to load 
the program. 

Type in Listing 1 using the M/L Editor, 
and name the resultant file AUTO- 
RUN.SYS. 

To use Wordlock, you need to load the 
binary program as soon as possible after 
the boot process. This means if you are 
using a DOS that recognizes AUTO- 
RUN.SYS, you should name Wordlock AU- 
TORUN.SYS so it will be loaded right 
after DOS. Such DOSs include DOS 2, 
DOS 2.5, DOS 3, SpartaDOS 23C.b, etc. If 
you are using a DOS that gives you con- 
trol after the system is booted, please refer 
to your user's manual. It should tell you 
how to load a binary file. For example, 
OS/A+ and SPARTADOS 1.1 give you a 
"Dl:" prompt after the boot process. 
You'll only need to type in "WORD- 
LOCK" and press RETURN if you name 
the Wordlock file WORDLOCK.COM. 

Once Wordlock is loaded, it will be 
present until you turn the computer off. 
The reset key does nothing to it. 

Password entering 

The user will be asked to enter a pass- 
word whenever the computer is going to 
save or load a program. You can enter up 
to 14 characters as your password. Care- 
fully check your password before you 
press RETURN. If the program you're 
loading or saving doesn't need a pass- 
word, all you have to do when it asks for 
the password is press RETURN. This tells 



Wordlock to save or load the program as 
it is in memory or on disk. You need to 
do this to load old programs. Here's how 
to assign a password to your old 
programs: 

1. Load the program. 

2 . When Wordlock asks for the pass- 
word, press RETURN. 

3. Save the program. 

4. Wordlock will ask for a password. 
Enter your password for this 
program. 

5. Remember the password! 

Last word 

Since it's impossible to restore your 
programs if you don't have the password, 



Since it's impossible to 
restore your programs 
if you don't have the 
password, use only one 
or two passwords on all 

your programs-or 
write your passwords 

down someplace. 



use only one or two passwords on all your 
programs — or write your passwords down 
some place. It's also a good idea to use at 
least four characters in your password. 
Listing 2 is the assembly source code 
for Wordlock, written using MAC/65. Word- 
lock locates itself at MEMLO, the first avail- 
able memory in RAM for users, so it 
should work with all DOSs and all 8-bit 
Atari languages. 

Andy Lee is 18 years old and attends Concord 
High School in Elkhart, Indiana. He moved 
to the U.S. from Taiwan in the summer of '82. 
He has been programming Atari computers for 
over two years, and also runs a BBS called 
Green Alley Bulletin Board System. 
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LISTING 1: M/L EDITOR DATA 

1000 DATA 255,255,0,64,78,66,32,255,25 

5,162,8,160,8,142,231,2,6391 

1010 DATA 148,232,2,162,8,168,0,134,12 

,132,13,169,87,141.253,3,4847 

1020 DATA 96,142,255,3,32,255,255,8,19 

2,1,248,2,48,96,136,174,6806 

1030 DATA 255,3,152,157,14,4,189,74,3, 

201,4,240,4,201,8,208,5659 

104O DATA 85,169,11,141,254,3,172,254, 

3,185,254,64,32,235,64,206,9985 

1858 DATA 254,3,208,242,32,246,64,160, 

14,217,9,65,240,246,136,208,1373 

I860 DATA 248,281,126,288,13,172,254,3 

,240,234,32,235,64,206,254,3,1065 

1070 DATA 16,226,201,155,240,24,168,17 

3,254,3,201,14,240,214,13,255,1751 

1080 DATA 3,178,152,157,8,4,32,235,64, 

238,254,3,16,198,32,235,7641 

1098 DATA 64,172,254,3,208,8,152,174,2 

55,3,157,0,4,200,174,255,9418 

1100 DATA 3,152,157,15,4,160,1,174,255 

,3,40,96,142,255,3,32,4287 

1110 DATA 255,255,8,148,254,3,174,255, 

3,32,193,64,172,254,3,40,6728 

1120 DATA 96,32,193,64,76,255,255,72,1 

42,255,3,189,14,4,13,255,7828 

1138 DATA 3,168,254,14,4,189,14,4,221, 

15,4,288,5,169,0,157,3193 

1140 DATA 14,4,104,248,8,217,8,4,248,3 

,89,0,4,174,255,3,3338 

1150 DATA 96,168,173,7,228,72,173,6,22 

8,72,152,96,173,37,228,72,7895 

1160 DATA 173,36,228,72,96,32,58,32,18 

0,114,111,119,115,115,97,88,4240 

1170 DATA 27,28,29,38,31,125,127,156,1 

57,158,159,253,254,255,166,212,5834 

1180 DATA 164,213,142,48,66,148,50,66, 

174,42,3,172,43,3,134,212,4522 

1190 DATA 132,213,173,253,3,201,87,288 

,3,76,47,66,166,12,164,13,3863 

1208 DATA 142,1,64,148,2,64,174,231,2, 

172, 232, 2, 134, 12, 132, 13, 3968 

1218 DATA 142,14,64,140,16,64,24,173,2 

31,2,105,24,141,4,64,173,3307 

1220 DATA 232,2,105,1,141,6,64,160,8,2 



4,177,212,105,1,141,31,2965 

1230 DATA 64,208,177,212,185,8,141,32, 

64,168,4,24,177,212,105,1,4209 

1240 DATA 141,170,64,208,177,212,185,8 

,141,171,64,208,24,177,212,185,9338 

1250 DATA 1,141,191,64,280,177,212,105 

,8,141,192,64,160,0,24,169,6182 

1260 DATA 26,189,231,2,145,212,288,169 

,0,189,232,2,145,212,168,4,7937 

1278 DATA 24,169,165,189,231,2,145,212 

,200,169,6,109,232,2,145,212,9850 

1280 DATA 200,24,169,186,189,231,2,145 

,212,200,169,0,109,232,2,145,8666 

1296 DATA 212,162,17,189,61,66,133,213 

,282,189,61,66,133,212,160,1,8253 

13O0 DATA 56,177,212,233,0,145,212,200 

,177,212,233,64,145,212,136,24,1553 

1310 DATA 177,212,169,231,2,145,212,20 

0,177,212,109,232,2,145,212,202,3290 

1328 DATA 16,209,174,231,2,172,232,2,1 

34,212,132,213,160,0,185,8,8071 

1330 DATA 64,145,212,260,208,248,238,2 

13,168,23,185,0,65,145,212,136,898 

1340 DATA 192,255,208,246,24,173,231,2 

,105,24,141,231,2,173,232,2,7909 

1350 DATA 105,1,141,232,2,162,8,160,0, 

134,212,132,213,169,87,141,9022 

1360 DATA 253,3,96,70,64,100,64,128,64 

,136,64,78,64,67,64,83,2213 

1370 DATA 64,179,64,187,64,226,2,227,2 

,24,65,0,0,8,0,0,7211 

LISTING 2: ASSEMBLY 



16 
20 
30 
40 
58 
51 
52 
68 
78 
88 



.OPT NO LIST 

* * 

* NORD-LOCK * 

* * 

* April, 1986 « 

* * 

* by Andy A. Lee * 

* * 
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98 ; 






8180 


INDEX = S83FE 




8110 


CHN16 = $03FF 




8128 


BADS = $0E 




8138 


MAXIN = $8E 




8140 


DELETE = $7E 




0150 


RETURN = $9B 




8168 


D65INX = $8C 




8178 


ICAX1 = $834A 




8188 


MEMLO = $82E7 




0198 


READ = $84 




8288 


WRITE = $88 




8218 


OK = $81 




8228 


PASS = $0400 




8238 


CNTR = PASS+14 




8248 


LENS = PASS+15 




8258 


«= $4000 




8268 


f 




8278 
8288 


; Rest init. . . 




i 




8298 






8388 


TODOS JSR $FFFF 




8318 


MLLSB LDX tt$88 




8320 


HLMSB LDV »$88 




8338 


STX MEMLO 




8348 


STY MEMLO+1 




8358 


TDLSB LDX tt$88 




8368 


TDMSB LDV tt$88 




8378 


STX DOSINI 




8388 


STY DOSINI+1 




8398 


LDA tt'M 




8488 


STA $03FD 




8418 


RTS 




8428 


J 




8438 


; Open vector 




8448 


j 




8450 


j 




8468 


OPEN STX CHN16 




8478 


DOPN JSR $FFFF ; 


Open the file 


8488 


PHP ; 


Save status 


8498 


CPY ttOK J 


Process okay? 


8588 


BEQ OURJOB ; 


OK! Our turn! 


8518 


PLP ; 


Error code 


0520 


RTS j 


Return 


8538 


■ 
f 




8548 
8558 


; Our works 




i 




8568 


t 




8578 


OURJOB DEY 




8588 


LDX CHN16 




8598 


TYA ; 


reset counter 


8680 


STA CNTR,X ; 


to zero 


8618 


LDA ICAX1,X ; 


Is this. . . 


8628 


CMP ttREAD ; 


read a file? 


8638 


BEQ CONT ; 


Continue if so 


8640 


CMP ttWRITE ; 


write a file? 


8650 


BNE NOPASSMORD ; nopassword 


8668 


; if it isn't read or write... 


8678 






0688 
0690 


; PRINT "Password 


■ ii 


» 




8788 


■ 




8718 


CONT LDA ttll ; 


11 characters 


8728 


STA INDEX 




8738 


PRLOOP 




8748 


LDY INDEX ; 


Load index 


0750 


Ml LDA M5G-1,Y ; 


A charater 


0760 


SI JSR SCREEN ; 


Print it 


8778 


DEC INDEX ; 


Next character 


0780 


BNE PRLOOP ; 


Done? 


8798 


/ 




8888 
0810 


; input the password. 


$ 




0828 


• 




8838 


INLOOP 




8848 


11 JSR INPUT ; 


A keystroke 


0858 


LDY ttBADS 




8868 


CHLOOP 




8878 


Bl CMP BADIN-1,Y 


; CoHpare with 


0880 


BEQ INLOOP ; 


unusable 


8898 


DEY ; 


input table. 


8980 


BNE CHLOOP 




0910 


CMP ttDELETE ; 


Delete backs? 


8928 


BNE CH2 j 


If not. . . 


8930 


LDY INDEX ; 


Check index 


0948 


BEQ INLOOP ; 


No input yet! 



8958 


52 


JSR SCREEN ; 


Delete letter 


8968 




DEC INDEX ; 


= INDEX - 1 


8978 




BPL INLOOP ; 


Next key 


8980 


CH2 


CMP ttRETURN ; 


RETURN key? 


0990 




BEQ STOPIN ; 


If so, stop 


1000 




TAY ; 


Y peg. = A 


1818 




LDA INDEX ; 


Too Many? 


1820 




CMP ttMAXIN 




1430 




BEQ INLOOP ; 


Yes! ! ! 


1040 




ORA CHN16 j 


Store 


1050 




TAX 




1060 




TYA 




1070 




STA PASS,X 




1080 


S3 


JSR SCREEN ; 


Print it too. 


1890 




INC INDEX ; 


= INDEX + 1 


1180 




BPL INLOOP : 


Next key 


1118 


STOP] 




1128 


54 


JSR SCREEN ; 


Print the <CR> 


1138 




LDY INDEX j 


PASSWORD? 


1148 




BNE SULEN ; 


Yes, go on. . . 


1158 


NOPAS 




1168 




TYA ; 


Y reg. = e 


1178 




LDX CHN16 ; 


Clean password 


1188 




STA PASS,X 




1198 




INY ; 


Length = l 


1280 


SULEN 


Save length 


1218 




TYA 




1228 




STA LENS,X 




1238 




LDY ttOK ; 


No error flag 


1248 




LDX CHN16 




1258 




PLP 




1268 




RTS ; 


All done. 


1278 


i 






1288 
1298 


; Get vector 




i 






1300 


■ 






1318 


GET 


STX CHN16 




1320 


DGET JSI 


Get a byte 


1330 




PHP ; 


Save status 


1348 




STY INDEX ; 


Save Y reg. 


1358 




LDX CHN16 




1368 


CI 


JSR CODE ; 


Decode byte 


1378 




LDY INDEX ; 


Restore Y reg. 


1388 




PLP ; 


Reload status 


1398 




RTS ; 


Done! 


1488 


J 






1418 


; Put vector 




1428 


i 






1438 


# 






1448 


PUT 






1458 


C2 


JSR CODE : 


Code the byte 


1468 


DPUT JMP $FFFF ; 


Output to disk 


1478 


CODE PHA 




1480 




STX CHN16 ; 


Save channel « 


1498 




LDA CNTR,X ; 


calculate the 


1588 




ORA CHN16 ; 


byte to EOR 


1518 




TAY ; 


with. . . 


1528 




INC CNTR,X ; 


Reset counter 


1530 




LDA CNTR,X ; 


Set back to 


1540 




CMP LENS,X ; 


zero? 


1550 




BNE NOTNOM 




1568 




LDA tt$ee ; 


set to zero 


1578 




STA CNTR,X 




1580 


NOTNO 


Load the byte. 


1590 




BEQ EXIT ; 


ZERO? bypass! 


1688 




CMP PAS5,Y ; 


= CODE BYTE? 


1616 




BEQ EXIT ; 


Bypass 


1626 




EOR PASS.Y ; 


Coding. . . 


1630 


EXIT 


All done 


1648 




RTS ; 


Bye-bye! 


1658 


f 






1668 


; Screen - print 


a character 


1678 


j 


on screen. 


1688 


■ 
§ 






1698 


SCREE 




1788 




TAY ; 


A = character 


1718 




LDA $E467 ; 


location of 


1726 




PHA ; 


PRINT routine 


1736 




LDA $E486 ; 


in OS 


1748 




PHA 




1758 




TYA ; 


restore A 


1768 




RTS ; 


goto routine 


1778 


1 
§ 






1788 


; Input - input a 


keystroke 


1798 


j 






1888 


INPUT 
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1818 
1828 
1830 
1848 
1858 
1868 
1878 
1888 
1&90 
1900 
1910 
1920 
1930 
1940 
1950 
1968 
1978 
1980 
1998 
2888 
2818 
2828 
2838 
2048 
2858 
2868 
2070 
2888 
2890 
2108 
2110 
2120 
2130 
2148 
2158 
2168 
2178 
2188 
2190 
2200 
2218 
2228 
2238 
2248 
2258 
2268 
2270 
2280 
2298 
2388 
2318 
2328 
2338 
2348 
2358 
2360 
2370 
2388 
2398 
2488 
2418 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2518 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2598 
2600 
2610 
2620 
2630 
2648 
2650 
2660 



MSG 



LDA $E425 

PHA 

LDA SE424 

PHA 

RTS 

,BYTE " 



location of 
INPUT routine 
in OS 

goto routine 



drowssaP" 



; Following characters are not 
; usable for password. 

BADIN 

.BYTE 27,28,29,38,31,125,127 
•BYTE 156,157,158,159,253 
.BYTE 254,255 

; Install MORDLOCK 



INIT LDX $D4 
LDY $D5 
STX X + l 
STY Y+l 
LDX $032A 
LDY $032B 
STX $D4 
STY $D5 



Get address 
of "D" vectors 
table 



; Me will see if MORDLOCK is 
; already installed 

CHECK 

LDA $83FD 
CMP tt'M 
BNE COPY 
JMP EXITINIT 

; He now install MORDLOCK 



COPY 



LDX 
LDY 
STX 
STY 
LDX 
LDY 
STX 
STY 
STX 
STY 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDY 
CLC 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
STA 
LDY 
CLC 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
STA 
INY 
CLC 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
STA 
LDY 
CLC 



DOSINI 

DOSINI+1 

TODOS+1 

T0D0S+2 

MEMLO 

MEMLO+1 

DOSINI 

DOSINI+1 

TDLSB+1 

TDMSB+i 



MEMLO 

tt <INIT-$48BB 

MLLSB+1 

MEMLO+1 

tt >INIT-$4888 

MLM5B+1 

80 



calculate new 
MEMLO 



($D4),Y 

tt$8i 

DOPN+1 

C$D4),Y 
tt$00 
DOPN+2 
»4 

C$D4J,Y 
tt$01 
DGET+1 

($D4),Y 
tt$00 
DGET+2 



($D4),Y 
tt$01 
DPUT+1 

C$D4),Y 

»$00 

DPUT+2 
»0 



First, copy 
OPEN vector 
so we can use 
it. . . 



NOW the GET 
vetor too. . . 



Last, PUT 
vector. . . 



Insert ny OPEN 



2678 


LDA 


tt <0PEN-$488i ; vector 


2680 


ADC 


MEMLO 


2690 


STA 


($04), V 


2708 


INY 




2718 


LDA 


tt >0PEN-S4881 


2728 


ADC 


MEMLO+1 


2738 


STA 


($D4),Y 


2748 


LDY 


tt4 ; insert My GET 


2758 


CLC 


j vector 


2768 


LDA 


tt <GET-$4881 


2778 


ADC 


MEMLO 


2788 


STA 


($04), V 


2798 


INY 




2800 


LDA 


tt >GET-$4BB1 


2810 


ADC 


MEMLO+1 


2820 


STA 


($04), Y 


2830 


INY 


; Insert ny put 


2643 


CLC 


; vector 


2858 


LDA 


tt <PUT-$4B81 


2868 


ADC 


MEMLO 


2878 


STA 


($04), Y 


2888 


INY 




2890 


LDA 


tt >PUT-$4881 


2900 


ADC 


MEMLO+1 


2910 


STA 


($04), Y 


2920 


LDX 


ttl7 


2930 


CAL LDA 


MOVETHESE, X 


2940 


STA 


$D5 


2958 


DEX 




2968 


LDA 


MOVETHESE, X 


2978 


STA 


$D4 


2988 


LDY 


ttl 


2998 


SEC 




3888 


LDA 


C$04], V 


3810 


SBC 


tt <$4088 


3828 


STA 


($04), Y 


3838 


INY 




3840 


LDA 


($04), Y 


3058 


SBC 


tt >$4888 


3060 


STA 


($04), V 


3878 


DEY 




3888 


CLC 




3898 


LDA 


($04), Y 


3188 


ADC 


MEMLO 


3118 


STA 


($04), Y 


3128 


INY 




3138 


LDA 


($04), Y 


3148 


ADC 


MEMLO+1 


3158 


STA 


($04), Y 


3168 


DEX 




3178 


BPL 


CAL 


3188 


LDX 


MEMLO 


3198 


LDY 


MEMLO+1 


3288 


STX 


$04 


3218 


STY 


$05 


3220 


LDY 


tte 


3230 


MOVE LDA TODOS,Y 


3248 


STA 


($04), Y 


3250 


INY 




3270 


BNE 


MOVE 


3271 


INC 


$05 


3272 


LDY 


tt <INIT-$4BB1 


3273 


M0VE2 LDA T0D0S+$B18B,Y 


3274 


STA 


($04), Y 


3275 


DEY 




3276 


CPY 


tt$FF 


3277 


BNE 


M0VE2 


3288 


CLC 


; calculate new 


3298 


LDA 


MEMLO : MEMLO 
tt <INIT-$4BB8 


3300 


ADC 


3318 


STA 


MEMLO 


3328 


LDA 


MEMLO+1 


3338 


ADC 


tt >INIT-$4880 


3348 


STA 


MEMLO+1 


3358 


EXITINIT 


3368 


X LDX 


8$ 00 


3378 


Y LDY 


tt$88 


3388 


STX 


$04 


3390 


STY 


$05 


3488 


LDA 


tt'M 


3410 


STA 


$83FD 


3420 


RTS 




3430 


MOVETHESE . HORD S1,S2,53,S4 


3448 


.WORD I1,M1,B1,C1,C2 


3458 


*= 


$82E2 


3468 


.WORD INIT 
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jFC 



<=aT 



u 



/a 




I 






by Justin E. Wilder 

ften, while a program is running 
in our computer, it would be han- 
dy if we could print the wording 
or data on the screen. Many programs pro- 
vide a way to print certain information, but 
we might want to print some other text which 
appears on the screen. There are utilities that 
allow printing from the screen to a printer, 
but to access them we must stop execution 
of any program which may be running to give 
a command such as an immediate USR state- 
ment. What we need is the ability to print any 
text which is displayed, and still continue oper- 
ation of the program. The PrintScreen utility 
allows this to be done with a single keystroke. 

the PRINTSCN.OBJ code to the end of it 
using the COPY with append option of 
DOS. Be sure to have another copy of 
your program on disk before trying this 
in case it does not work properly. 

The BASIC program shown in Listing 
1 can also be used to install directly into 
memory. It's installed as a machine- 
language function in Page 6 of RAM and 
initialized before the BASIC program is 
automatically deleted. In this way, you can 
use this utility whether you have a disk 
drive or not. 

Once PrintScreen in installed in 
memory, you can load and run another 
program. At any time you want a print- 
out of the screen, you can make it by hold- 
ing the control key and pushing the "?" 
key. It will work properly only with a 
Graphics display and if the program 



The BASIC program in the accompany- 
ing listing can be entered and used in 
either of two ways to set up PrintScreen. 
(Be sure you save the program to disk or 
tape before running it, because one of the 
options clears the program from memory 
when it is finished.) If you use a disk drive, 
you may choose to have a binary 
(machine language) file set up on a disk. 
This file should have the name 
PRINTSCN.OBJ and will be loaded into 
memory with the binary load option of 
DOS before you run another program. 
You could also change the name of 
the PRINTSCN.OBJ file to AUTO- 
RUN.SYS (if you do not already have an 
AUTORUN.SYS file on that disk), and it 
will be installed in memory when you 
boot the computer. If you already have an 
AUTORUN.SYS file, you can probably add 
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Be sure you save the 

program to disk or tape 

before running it, 

because one of the 

options clears the 

program from 

memory when it 

is finished. 



does not use Page 6 of memory. Also, if 
the reset key is pushed, the initialization 
is lost. From BASIC, you can reinitialize 
this utility by entering the immediate 
mode command, which is X=USR(1591). 
PrintScreen can be used with any Atari 
400, 800, XL or XE computer. It requires 
any Atari-compatible printer to be 
properly connected for the printout. In- 
verse video characters are printed as regu- 
lar characters and control or graphics 
characters are represented by a period to 
avoid conflicts with printer features. Once 
installed in memory or in a disk file, it 
does not require BASIC and can be used 
with machine-language programs as well 
as BASIC programs. 



What makes it work? 

PrintScreen uses the keyboard inter- 
rupt vector to get temporary control of 
the computer when CTRL? is pushed. It 
uses memory locations 205, 206 and 207 
in addition to the last 201 bytes of Page 
6 in RAM. Referring to the assembly lan- 
guage listing, the first part is the initiali- 
zation section which puts the address of 
the main routine into the keyboard inter- 
rupt vector. The previous contents of this 
vector are placed in a jump (JMP) instruc- 
tion to send operation to the keyboard 
handler if a key other than CTRL? is 
pushed. If any I/O operation to a device 
other than the screen or keyboard is in 
progress, the CTRL-? key is ignored. 

Before the microprocessor registers X 
and Y are used, their contents are saved 
on the hardware stack, so that they can 
be restored to their previous values before 
operation is returned to the program 
which was running when CTRL? was 
pushed. The contents of the processor sta- 
tus register and acumulator are already 
on the stack. The interrupt mask has also 
been set, and since the input/output (I/O) 
operation to the printer involves inter- 
rupts, the mask must be cleared with a 
CLI instruction. 

Now, here's the tricky part. The Atari 
system provides eight I/O Control Blocks, 
so that up to eight I/O operations can be 
done at once, right? Wrong! Up to eight 
files or devices can be open for I/O, but 
during an actual I/O operation the con- 
tents of the associated I/O Control Block 
are transferred to one block in Page 
RAM from where control of the opera- 
tion is maintained. The Atari is thus 
designed to carry out only one I/O oper- 
ation at a time. The usual time when a 
printout of the screen would be request- 
ed is when a program is waiting for in- 
put from the keyboard. This means that 
it is in the middle of an I/O to the screen 



editor. If the screen printing changes the 
values in the zero page I/O Control Block, 
they will not be right when the program 
resumes and the computer will run out 
of control (lock up). Therefore the con- 
tents of the zero page block are saved on 
the stack before printing the screen, and 
are restored to their previous values af- 
terward. 

The printing operation is carried out 
in the normal way through the Central 
I/O routines in ROM. A control block is 
first opened for output to the printer. The 
characters in screen memory are then 
converted to ASCII values and sent to the 
printer, one line at a time and finally the 
block is closed. I/O Control Block seven 
was chosen, because its other uses are in 
similar open, do and close operations 



If the screen printing 

changes the values in 

the zero page 1/0 

Control Block, they will 

not be right when the 

program resumes, and 

the computer will run 

out of control. 



and are not likely to cause any conflict. 
When the values which had been saved 
on the stack are returned to their proper 
places, control is passed back to the origi- 
nal program by a Return from Interrupt 
(RTI) instruction to continue as though 
nothing had happened. 

Justin E. Wilder, a 1953 graduate of the 
University of Michigan, is a senior project en- 
gineer for Johnson Controls, Inc. He purchased 
his Atari 800 in 1980, and his Ultimate 
Renumber Utility was in the Atari Program 
Exchange. He is a member of the Indiana- 
Michigan Atari Group Exchange (IMAGE) 
users ' group. C\ 
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LISTING 1: BASIC 

KL 10 REM PRINTSCREEN — J.E. Milder 

MQ 11 REM COPYRIGHT 1988 

X« 12 REM BY ANALOG COMPUTING 

Dl 20 REM To print GR . 8 screen push CTRL- 

HD 30 DIM AN$ CI): PRINT "Set up PRINTSCREE 

N in:" 
ZX 40 PRINT "0ISK FILE or EEMORY"; : INPUT 

ANS: IF AN$="M" THEN 80 
MA 50 IF ANSO-D" THEN 40 
NA 60 ? "CREATING BINARY FILE" : OPEN 81,8, 

0,"D:PRINTSCN.0BJ" 
DL 70 FOR X=l TO 213 : READ A : PRINT 81;CHR$ 

(AJ; :NEXT X:END 
CO 80 PRINT "INSTALLING PRINTSCREEN IN PA 

GE SIX OF MEMORY. TO USE PUSH CTRL-?" 
ZA 90 RESTORE 110 : FOR X=1591 TO 1791: READ 

AiPOKE X,A:NEXT X:X=USRC1591) iNEH 
LD 100 DATA 255,255,55,6,255,6 
YY 110 DATA 104,173,8,2,141,97,6,173,9,2 
KA 120 DATA 141,98,6,169,79,141,8,2,169,6 
LA 130 DATA 141,9,2,96,173,9,210,201,166, 

208 
QC 140 DATA 10,165,32,261,6,144,4,201,15, 

144 
NG 150 DATA 3,76,0,0,152,72,138,72,162,15 
MI 160 DATA 181,32,72,202,16,250,134,32,1 

65,88 
UL 170 DATA 133,206,165,89,133,207,169,24 

,133,205 
GT 180 DATA 88,162,112,169,3,157,66,3,169 

,253 
LQ 190 DATA 157,68,3,169,3,157,69,3,169,8 


XM 200 DATA 141,253,3,169,155,141,254,3,1 

57,72 
MD 210 DATA 3,169,8,157,74,3,32,86,228,16 

9 
GT 220 DATA 9,157,66,3,160,0,165,205,240, 

VG 230 DATA 177,206,41,127,201,123,176,4, 

281,97 
UF 240 DATA 176,8,105,32,201,96,144,2,169 

JY 250 DATA 153,253,3,152,200,192,48,144, 

227,101 
PK 260 DATA 206,133,206,144,2,230,207,169 

,155,153 
ZC 270 DATA 253,3,32,86,228,48,4,198,265, 

FV 280 DATA 199,169,12,157,66,3,32,86,228 

,162 
MX 290 DATA 0,198,205,134,205,16,140,104, 

149,32 
SC 300 DATA 232,224,16,144,248,104,170,10 

4,168,104 
ER 310 DATA 64,226,2,227,2,56,6 



LISTING 2: ASSEMBLY 



10 ; PRINTSCREEN — J.E. Milder 

15 ; COPYRIGHT 1988 

16 ;BY ANALOG COMPUTING 

20 ;Prints Gr. O screen with CTRL-? 

30 *= $0637 

48 PLA 

58 INIT LDA $0208 UKEYBD 

60 STA EHIT+i 

70 LDA $0209 

88 STA EXIT+2 

98 LDA 8INTRPT&255 

6100 STA $0208 UKEYBD 

0110 LDA 8INTRPT/256 

8120 STA $0209 

0130 RTS 

0140 INTRPT LDA 53769 KBCODE 

6150 CMP 8$A6 CTRL-? 

6160 BNE EXIT 

017O LDA 32 Device in use 

8180 CMP 86 

6190 BCC EXIT P: or C: 



0206 


CMP 815 




0210 


BCC PRINT 


E:,S:or K: 


6220 


EXIT JMP $00 




023O 


PRINT TYA 




0240 


PHA 




025O 


TXA 




6260 


PHA 




O270 


LDX 815 




6280 


SAVE LDA 32, X 


Page IOCB 


029O 


PHA 




030O 


DEX 




0310 


BPL SAUE 




0320 


STX 32 


No repeat CTRL-? 


8330 


LDA 88 


Screen Men 


8340 


STA 206 


Pointer 


0350 


LDA 89 




0360 


STA 207 




037O 


LDA 824 




0380 


STA 205 


Line count 


0390 


CLI 




0408 


OPEN LDX 8$70 


IOCB 7 


0410 


LDA 83 


Open 


0420 


STA 834, X 


COMd 


0430 


LDA 81021*255 CASBUF 


0440 


STA 836, X 


Buf Adr 


0450 


LDA 81821/256 


0460 


STA 837, X 




O470 


LDA 888 


P: Device 


0488 


STA 1021 


CASBUF 


049O 


LDA 8155 


EOL 


0500 


STA 1022 




0510 


STA 848, X 


Buf Len 


0520 


LDA 88 


Output 


0530 


STA 842, X 


AUX1 


0540 


JSR $E456 


CIOU Open 


0550 


LDA 89 


PUT REC 


0560 


STA 834, X 


COMd 


0570 


NEXT LDY 80 




0580 


LDA 205 


LINE 


0590 


BEQ EOL 




0600 


LOOP LDA C206), 


Y Screen Char 


0610 


AND 8127 


No inverse 


0626 


CMP 8123 




0636 


BCS SHIFT>Z 




0648 


CMP 897 




0650 


BCS KEEP 


>=a 


6660 


SHIFT ADC 832 


To ASCII 


067O 


CMP 896 




0680 


BCC KEEP<=_ 




0690 


LDA 846 


Dot-Unprintable 


0700 


KEEP STA 1021, Y 


CASBUF 


0710 


TYA 




0720 


INY 




0730 


CPY 840 




0740 


BCC LOOP 




0750 


ADC 206 


Screen pnter +40 


0760 


STA 206 




0770 


BCC *+4 




078O 


INC 207 




0790 


EOL LDA 8155 




0800 


STA 1021, Y 




0810 


JSR $E456 


CIOU Print line 


0820 


BMI ERROR 




0830 


DEC 265 


Line 


0840 


BPL NEXT 




0850 


ERROR LDA 812 


Close 


086O 


STA 834, X 


COMd 


0870 


JSR $E456 


CIOU 


6880 


LDX 80 




0890 


DEC 205 


Line 


0900 


STX 205 




091O 


BPL OPEN 


Clr printer 


O920 


REFIL PLA 




0930 


STA 32, X 


Page IOCB 


0940 


INK 




0S50 


CPX 816 




0960 


BCC REFIL 




O970 


PLA 




098O 


TAX 




099O 


PLA 




1000 


TAY 




1010 


PLA 




102O 


RTI 




1030 


*= $02E2 


INITAD 


1040 


.MORD INIT 




105O 


.END 
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spreadsheet so easy to use that 
you don't need this article! Well, 
almost. But seriously, BCALC has 
many features that make it easy to use, the 
kind of ease of use you enjoyed with 
Atariwriter. 



Typing it in 

Listing 1 contains the BASIC data state- 
ments used to create the BCALC file on 
your disk. Please refer to the MIL Editor 
found elsewhere in this issue for instruc- 
tions in keying in BCALC. 

Once the BCALC file has been created, 
simply binary load it from DOS. Refer to 
your DOS manual on how to do this if 
you are not sure. Please remove the car- 
tridge from your 800 computer or turn 
BASIC off on your XL/XE computer by 
holding the option key down when boot- 
ing up. When the program loads there 
will be a credit line at the top of the 
screen. Press any key to begin. 



General information 

BCALC (hereafter referred to as BC) is 
a spreadsheet using about 8K of memory. 
This leaves around 24K for data. BC has 
many of the features you would find in 
a commercial spreadsheet. The BC sheet 
is 64 columns wide (lettered AA — CL) and 
has 64 rows (numbered 01-64). The inter- 
section of each column and row is called 
a cells. So if my arithmetic is still correct 
that means there are 64 x 64 or 4096 cell. 
Each cell has an overhead of at least four 
bytes plus whatever data is entered. 

There are three kinds of information 
you can store in a cell. The type of data 
entered is displayed on the right side of 



the top screen line. 

1. Text Data: This is anything that does 
not begin with a number 0-9 or the " = " 
or " - " sign. It's possible to put numbers 
in as text (see below). 

2. Numeric data: a number that begins 
with 0-9, " - " or " . " Numbers can be en- 
tered in scientific notation. For example, 
345E-45. BC only accepts that part of in- 
put which is a valid number. For exam- 
ple, if you type: " -.234fgh" BC takes the 
" - .234" and ignores the rest. You may 
not type in commas. To display commas 

(continued on second page following) 
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TYPt : F.m, t , , 



MONTHLY BREAKDOWN 



RENT 
FOOD 
COR 
HEAT 

INSURANCE 

DICAL 
iLECTRIC 
TELEPHONE 
LOONS 



$?Se,88 
490.88 

3ss.es 
i25.ee 
iss.ee 
se.ee 
12s.ee 

75.88 
3SX.4S 



LOAN 

PAYMENTS 



=OSUMCOB05,OB13> 



SO 
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BOOT UP 
TO BIG SAYINGS! 




1 YEAR FOR ONLY $28 

SAVE $14 OFF THE COVER PRICE 

1 YEAR WITH DISK ONLY $105 



SAVE TIME AND MONEY 
SUBSCRIBE TO ANALOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ANALOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS. 
GET THE MOST OUT 
OF YOUR COMPUTER. 
SUBSCRIBE TO 
ANALOG 
TODAY 



□ 1 YEAR @ $28 -SAVE $14! 
FOREIGN - ADD $7 PER YEAR 

□ 1 YEAR WITH DISK @ $105 
FOREIGN - ADD $15 PER YEAR 

□ PAYMENT ENCLOSED □ BILL ME 
CHARGE MY: □ VISA □ MC # 



MCHYY 
DCHYY 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED. 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



MAKE CHECK PAYABLE TO L.F.P., INC., P.O. Box 16927, N. Hollywood, CA 91615. Offer expires 10/26/88. 
Your first issue will arrive in 6 to 8 weeks. 



WATCH FOR IT! 




use the formatting commands which are 
discussed later. 

3. Functions: An arithmetic or algebraic 
expression starting with the " = " sign (in- 
versed also works). You mean I have to 
know algebra? Was my math teacher right 
in that there is a use for algebra? Perish 
the thought! 

Entering functions is quite easy if one 
follows the rules. The five operations of 
A (exponentiation), * (multiplication), 
/(division), + (addition) and - (subtrac- 
tion) are used. These are used as opera- 
tors between numbers, cells or built-in 
functions. Be aware of the order of oper- 
ations. My Dear Aunt Sally. Huh? This is 
a mnemonic to remember the order of 
operations: multiplications and divisions 
are done first in order from left to right. 
Next, additions and subtractions in ord- 
er from left to right. Exponents and 
parentheses are done first however. You 
want an example? Sure thing. 

= 3 + ((2 + 7) A 2-4*6)/6 
The innermost parentheses are done first: 
(2 + 7) becomes 9. The 9 is then squared 
( A 2) yielding 81. Next 4*6 = 24 is done. 
Then the difference 81 - 24 = 57 is cal- 
culated. Dividing by 6 yields 9.5. Add to 
3 equals 12.5. Remember that each num- 
ber above could be replaced by a cell or 



We have tried to crash 
this program in every 
way we can think of. 



a built-in function. For example: 
= @RND((1 + AB24/12) A 36) - BQ12 
Always make sure that the cells used do 
not have text data or an error will result. 
Since you might enter text data in low- 
er case, BC also allows you to enter func- 
tions in lower case; so you won't have to 
toggle that CAPS key. Just type away! 

Console keys 

OPTION displays a status screen in the 
text window. The current filename, num- 
ber of free bytes, recalculation status 
(on/off) and recalculation mode 
(row/column) are shown. Hit a key to exit. 

SELECT puts you in the driver's seat. 
Well, actually in command mode. The text 
window will change color in this mode. 
You may use upper- or lowercase letters 
and even inverse video in commands. 
Some commands require an argument 
such as a cell reference (e.g., BG24) or a 
number. Zeros are necessary in cell refer- 
ences (e.g., CD02). 

The commands are: 

[DIR]ECTORY n displays up to 16 files 
on the screen. If you do not type a drive 
number "n," Drive 1 is the default. Make 
sure there is a space between "DIR" and 
"n." That is also true for the other com- 
mands. Press a key to read more file- 




Si 
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names. If there are exactly 16 files read 
in you will need to hit a key twice. 

[WID]th ccrr sets the width of column 
cc to width rr. The width rr must be great- 
er than one but less than 32. 

[SAV]E Dn:filespec is used to save the 
sheet. You must type a complete filespec 
including the "Dn:". Multiple drives are 
supported as well as a RAMDisk. If you 
attempt to save a sheet using the name of 
a file that already exists, you are asked if 
you wish to replace it. Merely hit the "Y" 
or "N" key to make your choice. 

[LOA]D Dn:Filespec is used to load a 
sheet that was saved. Seems reasonable. 
[GOT]0 ccrr is the fast way to go from 
here to there or at least to cell ccrr. cc 
must be in the range AA-CB and rr in the 
range 01-47. 

[SET] ccrr sets the column and row 
references that are displayed at the bot- 
tom of the text window. An example is 
definitely called for. If we type SET AA02 
and the cursor is on DE12 we see that data 
from cell AA12 and from DE02 displayed. 
If I were doing my grades (after all, I 
am a teacher), I might have student names 
in column AA. But when I'm entering 
data in cell AG12, column AA is nowhere 
to be seen. However, if I use SET AA12 
the student name from column AA row 



12 appears on the last text window line. 
Also shown is heading for column AG 
row 02. 

[LIS]T Dn:filespec lists the spreadsheet 
to the disk so the information can be used 
with a word processor like Atariwriter. 
Use the cursor keys to define the block 
of information you would like listed on 
disk. If you define a bad block an error 
results. The information listed will be in 
exactly the same format as you see it on 
the screen. 

LISTed files cannot be reloaded into 
the sheet. Doing so will probably cause 
the computer to lockup, and you will like- 
ly see a very unusual screen staring at you! 
Use the SAVE command to store the sheet 
on disk. Just in case you try to do some- 
thing clever, like LIST to the same file- 
name that was used to SAVE the sheet, 
you're told if the file already exists. You 
then may overwrite it if you wish. I'd 
recommend using a .LST extension on 
LISTED files. 

START is used to abort input in either 
input mode, edit mode or command 
mode. 

Special keys 

These keys are used with the CON- 
TROL key pressed simultaneously: 



[-] (Arrow up) moves the cursor up one 
row. 

[ = ] (Arrow down) moves cursor down 
one line. 

[ + ] (Arrow left) moves one cell to the 
left. 

[*] (Arrow right) moves one cell to the 
right. 

The name of the current cell (e.g., 
AA01) occupied by the cursor is displayed 
in the center of the top screen line. To the 
right of it is a message showing the type 
of data in the cell. This is good to know 
since a number on the screen could be 
a stored number or it could be the result 
of a function. 

These keys can be used in input mode 
to terminate input and send the cursor 
to the next cell. For example, if you are 
on cell AA01 and you type 
NAMES(CTRL - *), "NAMES" is entered 
in cell AA01 and the cursor will move to 
cell AB01. RETURN keeps the cursor on 
the current cell. In edit mode these keys 
move you around the text window to give 
you full-screen editing. 

[H] takes the cursor to AA01. 

[D] deletes a block of cells. Follow the 
prompts. Specifying an improper block 
results in an error. 

[C] copies a block of cells. See below. 
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[M] moves a block of cells. See below. 

[T] forces text mode. This allows you to 
enter numbers, etc, as text. For example, 
342-48-2333 as a number would result in 
just 342 being entered. In forced text 
mode it is entered as text. 

[G] changes the global format of the 
column the cursor is on. 

[L,C,R] keys control Left, Center and 
Right justification. 

[D] toggles the "$" symbol. 

[,] toggles commas on and off. 

[0-9] chooses the number of places dis- 
played to the right of the decimal point. 

[ESCAPE] makes the choice final and 
exits. 

All new data entered in this column 
will take on the new format. Formatting 
information is stored with cell data when 
it is entered. So data already there has its 
own individual format. To change it use 
CTRL-F. 

[F] formats an individual cell. Enter the 
data normally. Press CTRL-F. The global 
format information is displayed in the 
text window. Make the changes you desire 
as above in G. ESCAPE reformats the cell 
and makes the changes on the screen. 

[E] displays the current cell data in the 
text window and allows you to edit the cell 
much as you are used to doing in Atari 



BASIC. 

[P] prints the sheet. Follow the prompts 
in defining a block to be printed. The in- 
formation will be printed exactly as you 
see it on the screen. So check your 
column widths, etc. The printing is clone 
by rows. If you have an 80-column printer 
and select columns whose widths add to 
more than 80 there will be some wrap- 
around. Therefore you might want to 
print left and right halves of your sheet. 

It's possible to send printer codes out 
by typing them into a cell. Since some of 
these codes might conflict with the way 
BC handles input you might need to type 
a space first and then the codes. 

[O] toggles the recalculation on/off fiag. 
Turn it off to type in data. Otherwise the 
whole sheet is recalculated every time you 
enter data, which takes some time to do. 

[R] changes recalculation order from by 
rows to by columns or vice-versa. 

[K] erases a cell from the sheet. 

[CAPS] toggles between upper and 
lowercase letters. This key can be used in 
any input mode. 

[A] recalculates the whole sheet im- 
mediately. Use CTRL - E and RETURN to 
recalculate a particular cell. 

[ESC] aborts the delete, copy, move and 
print options. 



Let's discuss copy and move. Copy 
makes an exact duplicate of the block of 
cells you chose. Move does the same thing 
but cell references are changed. For 
example: 



0001 
0007. 
0003 



contents 

12.35 
4 

=0001+3 



Cell AA03 has 15.35 as a result. Copying 
cells AA02 and AA03 to AM23 results in: 



0M22 
0M23 
0H24 



contents 

32 (this cell existed before. 

4 

=0001+3 



The result in AM24 is 15.35 ( the same as 
before). If you move the same cells to 
AM23 the result is: 



0M22 
OM23 
AM2 4 



contents 

32 

4 

=0M22+3 



Here AM24 will contain 35. Notice how 
the cell reference was changed in cell 
AM24. 

After a copy or move some cells will be 
overwritten. None of the source cells are 
deleted in either except those that are 
overwritten. Clean up any cells not want- 
ed using the delete option (CTRL-D). 
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We'd suggest that before doing a copy 
or move you save the sheet. It's just pru- 
dent practice. We have tried to crash this 
program in every way we can think of, but 
there is always the unknown. Maybe a cir- 
cuit gets a little overheated and causes a 
crash. I even got SynCalc to crash once. 
Fortunately, I was just fooling around with 
it. The old adage "Better SAVE than sor- 
ry" applies here. 

Built-in functions 

The built-in functions are typed in 
this format: @CNT(AA03, BX24) or 
@SQR(23.45) or @SQR(BD23). Paren- 
theses must be used and cells must be 
separated by a comma. 

The following functions require one ar- 
gument which could be a cell or a 
number: 



function 


operation 


SOU 


squaring 


5QR 


square root 




absolute value 




round value 




exponentiation base i 




logarithM base 10 


IMT 


greatest integer 



These functions require two arguments 
and they must be cells. 



function operation 

CHT count the nuMber of cells in a bl 
SUM add the entries in a block, 
AVE find the average of all the entri 
a block 



You mean I have to 
know algebra? Was my 
math teacher right in 
that there is a use for 

algebra? Perish the 
thought! 



CNT counts all the cells that have en- 
tries in a block whether they be text, num- 
bers or functions. SUM however, adds up 
only the values in cells containing a nu- 
meric result. Text cells are treated as a 
zero. Empty cells result in the word "Er- 
ror" displayed on the screen. AVE oper- 
ates like SUM. However, AVE uses the 
CNT and SUM routines to get its value. 
So if you try to average cells containing 
RENT,400,500,600, the result will be 
(O(RENT) + 400 + 500 + 600)/4 = 375, an in- 
correct result. 

Functions can be mixed in with any 
arithmetic expression as in: 
= AA01 + (4*@AVE(CD24,CE32)A@ 

RND(AG12))-(2 + @SQR(AA02)) 
However, functions are not nestable, i.e., 
you can not type =@ABS(@EXP 
(AA01)). 

Error messages 

We used standard error numbers 
wherever we could to keep the program 
as small as possible. The most common 
errors are: 

2 — out of memory. You have used all 
available memory. Save the sheet as it is. 

138 or 139 — Device does not respond 
or malfunctions. This probably will refer 
to the printer not being on. 
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141 — cursor out of range. Used in copy, 
move, delete, print and list if the defined 
block is incorrect. 

144 — disk error, probably write pro- 
tected. 

160 — drive number not known. 

162— disk full. 

165 — bad filename. You must specify 
the "Dn:" in the filespec. 

167 — file locked. 

170 — file not found. 

Wrap-up 

There's an easy way to duplicate a for- 
mula in a column or row: Use the move 
command. For example, cell AC02 might 
have the formula =SQU(AB02). If I 
would like that formula in cells AC03 to 
AC23, I would first move cell AC02 to 
AC03. Then move the block AC02, AC03 
lo AC04. Next move AC02, AC04 to AC05, 
etc., until done. Then column AC has the 
squares of the numbers in column AB. 

In this manner special formulas — 
statistical, financial or others — can be 
built up. For example, one formula for 
standard deviation is: 

Square root of (mean of XA 2 - 



(mean of X)A 2) 
Assume that the column AB02, AB23 has 
some data in it: 



square of QB02 
square of qboj 



. .. square of nB23 

Mean of X Mean of x*2 

square of HB24 «C24-nB25 

square root of AC25 



First find the mean of AB02, AB23 by us- 
ing = @AVE(AB02,AB23) and enter this 
in cell AB24. In cell AB25 enter 
= @SQU(AB24). In column AC02.AC23 
enter the formula = ©SQU(ABrr) where 
rr goes from 02 to 23. Or use the move 
procedure described above. In cell AC24 
enter = @AVE(AC02,AC23). In cell AC25 
type =AC24 - AB25. Finally in cell 
AB26 enter = @SQR(AC25). Cell AB26 
will contain the standard deviation. 

Let's see what that new car will cost 
when financed at different rates and 
different principals. 

Let r = rate as a decimal, p = principal, 
t = years of loan and A = cost of loan. 
The formula for the cost of a loan (prin- 
cipal plus interest) is: 



A = (p*r*t*12)/(l - (1 + r/12) A - 12*t) 
This formula can be entered into one 
cell; p, r and t can be numbers or cell 
references. If you would like to calculate 
a monthly payment just use p*r as the 
numerator. If cells AA01, AB01, AC01 con- 
tained p,r and t respectively, then the 
above formula would look like this: 
= (AA01*AB01*12*AC01)/(1 -(1 + 
AB01/12) A -12*AC01) 
We tried to put in features that would 
make it very easy for you to use this 
spreadsheet. The built-in functions pro- 
vide you with the building blocks for 
almost any formula. This program took 
over five months to develop and test. We 
hope you will find it useful. 

Barry Kol.be and his wife Linda live in the coun- 
try with their two children Philip andAudra. Be- 
ware, Phil just got his driver's license andAudra 
can befoundatthelocalshoppingma.il. T/i£ house- 
hold uses timesharing since the 800 and Ninten- 
do are hooked up to the same TV. 

Btyan Schappel discovered computers, bought, one, 
went to college, drank beer, got engaged, left school 
and is taking a leave of absence from reality. 



LISTING 1: M/L EDITOR DATA 

1000 DATA 255,255,64,37,113,54,112,112 
,80,66,0,32,144,2,2,2,8408 

i 8 i e .52P 2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2 1 2 / 1282 

1620 DATA 144,66,32,35,2,2,2,65,64,37, 

72,138,72,174,122,37,1276 

1038 DATA 189,123,37,141,10,212,141,24 

,208,238,122,37,104,170,104,64,6995 

1040 DATA 0,130,0,169,8,141,122,37,162 

,4,189,196,2,157,22,208,5783 

1850 DATA 202,16,247,76,95,228,32,234, 

40,32,210,44,32,255,41,32,4899 

I860 DATA 142,40,32,146,42,169,37,141, 

49,2,169,64,141,48,2,169,2980 

107O DATA 0,133,128,169,32,133,129,169 

,70,162,9,160,8,32,155,40,3291 

108O DATA 32,163,42,169,69,162,224,16© 

,0,32,155,48,32,104,42,32,1924 

1890 DATA 146,42,32,123,47,32,145,46,1 

73,31,208,201,5,208.3,76,4523 



n 



1 ^ ,S? T ^ 1 7Si 63 ' 201 ' 3 ' 2fl8 ' 6 ' 32 ' 2 33,46 

,76,281,37,173,252,2,201,8033 

1110 DATA 255,240,226,32,172,42,162,16 

jl 33 '* 67 '"' 12 ?, 221, 125,70,248,9380' 

1 « B ,^ Tfl -i 3 i 202 ' 16 ' 248 ' JL65 ' 167 ' 3 2,142 

,62,176,196,76,34,38,189,142,7231 

ii 3 !L Dft I2 70 'm* 26, 38, 189, 159, 78, 141, 

27,38,169,255,141,252,2,32,6674 

ii 40 =S fl I fl 255,255,32,85,48,76,281,37,1 

73,192,36,201,155,208,6,32,6554 

1 ic 8 Dft ™ 231,50,76,207,37,165,193,240 

{ f I S' £TJl 18 , 7 ' 72 ' 208 ' 123 ' 173 ' 192, 3131 

1160 DATA 36,201,61,248,7,281,189,248, 

3,76,144,38,165,193,133,206,190 

^TS^SIS ^2, 156, 46, 32, 231, 54, 144, 4, 16 

9,130,208,2,169,2,133,194,6755 

4i 80D .ATA 165,206,133,193,24,105, 192,1 

33 £ 252 iJ 89 ' 36 .' 105 ' ' 133 ' 253 ' 16 2,«49 

k^tt^IS ' 32 ji71 J 221,165,193,24,lO5, 

6 'i 33 'i 93 ' 178 ' 16 ^155,157,192,983 

1200 DATA 36,32,9,44,32,145,46,174,65, 
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1648 DATA 168,63,169,8,153,282,75,169, 

32,153,18,76,136,16,243,133,6924 

1658 DATA 144,169,8,141,281,75,162,289 

,149,8,282,48,251,133,147,141,682 

1668 DATA 69,71,141,68,71,169,2,133,14 

6,24,189,282,75,141,188,72,7111 

1678 DATA 165,121,5,122,248,18,165,121 

,141,189,42,165,122,141,198,42,8646 

1688 DATA 169,127,168,178,138,153,281, 

74,73,128,153,73,75,282,136,48,8881 

1698 DATA 16,192,95,288,4,162,63,288,2 

35,192,31,288,231,162,95,288,3288 

1788 DATA 227,169,282,133,128,169,76,1 

33, 129, 168, 8, 165, 128, 153, 74, 76, 7526 

1718 DATA 165,129,288,153,74,76,165,12 

8,24,185,1,133,128,165,129,185,6812 

1728 DATA 8,133,129,288,192,128,288,22 

7,168,63,169,255,153,282,76,136,3295 

1738 DATA 16,258,169,18,141,189,72,169 

,77,141,198,72,169,87,133,128,9883 

1748 DATA 141,193,72,169,73,133,129,14 

1,251,72,168,1,165,128,24,185,7881 

1758 DATA 6,133,128,153,193,72,165,129 

, 185, 8, 133, 129, 153, 251, 72, 2B8, 341 

1768 DATA 192,57,288,232,96,169,48,133 

, 128 , 169, 32, 133, 129 , 168 , 39, 169 , 8452 

1778 DATA 128,145,128,136,16,249,169,2 

,133,138,165,143,133,139,164,139,356 

1788 DATA 192,64,248,22,185,282,75,72, 

74,24,181,138,133,141,198,141,8748 

1798 DATA 184,24,181,138,133,148,281,4 

1,144,1,96,169,33,133,142,165,7488 

1888 DATA 139,281,26,144,14,238,142,56 

, 233, 26 , 281 , 26, 144 , 5, 238, 142 , 8431 

1818 DATA 56,233,26,72,164,141,165,142 

,73,128,145,128,184,24,185,33,5514 

1828 DATA 73,128,288,145,128,238,139,1 

65,148,133,138,76,24,42,32,133,6178 

1838 DATA 42,172,188,72,136,177,128,73 

, 128, 145, 128, 136, 196, 146, 16, 245, 684 

1848 DATA 164,155,185,18,76,133,144,32 

,7,64,96,164,147,185,188,69,7383 

1858 DATA 133,128,185,198,69,133,129,9 

6,168,8,152,153,32,35,288,192,8326 

1868 DATA 168,288,248,169,128,141,34,3 

5,96,32,172,42,162,255,142,252,1278 

1878 DATA 2,96,173,252,2,281,255,248,2 

49,133,184,168,192,192,144,2,3499 

1888 DATA 168,154,185,254,254,133,185, 

281,138,288,15,173,198,2,73,64,8998 

1898 DATA 141,198,2,169,255,141,252,2, 

288,216,281,129,288,11,173,182,3158 

1988 DATA 2,73,128,141,182,2,76,285,42 

,281,131,248,222,281,132,248,4319 

1918 DATA 193,281,133,248,189,165,184, 

281, 64, 176, 28, 165, 185, 281, 97, 144, 2289 

1928 DATA 14,281,123,176,18,173,198,2, 

248,5,5,184,76,181,42,165,7188 

1938 DATA 185,162,15,221,176,78,248,6, 

282, 16, 248, 77, 182, 2, 96, 168, B428 

1948 DATA 1,288,6,168,2,288,2,168,3,18 

5,216,69,133,128,185,228,464 

1958 DATA 69,133,129,168,1,96,168,2,32 

,148,52,76,184,46,173,189,6856 

1968 DATA 72,141,151,43,24,181,154,141 

,154,43,173,198,72,141,152,43,7748 

1978 DATA 185,8,141,155,43,197,186,176 

,221,173,189,72,56,229,138,133,1339 

1988 DATA 152,173,198,72,229,131,133,1 

53, 173, 189, 72, 24, 181, 154, 141, 189, 557 

1998 DATA 72,173,198,72,185,8,141,198, 

72,32,158,43,144,1,96,286,6854 

2888 DATA 151,43,173,151,43,281,255,28 

8,3,286,152,43,286,154,43,173,752 

2818 DATA 154,43,281,255,288,3,286,155 

,43,76,115,43,173,255,255,141,2441 

2828 DATA 255,255,198,152,165,152,281, 

255,288,18,198,153,165,153,281,255,653 

2838 DATA 288,2,56,96,24,96,165,138,14 
1, 154, 43, 24, 181, 154, 141, 151, 7255 
2848 DATA 43,165,131,141,155,43,185,8, 
141, 152, 43, 173 , 189, 72, 56 , 237 , 8573 
2858 DATA 151,43,133,152,173,198,72,23 
7,152,43,133,153,173,189,72,56,9667 
2868 DATA 229,154,141,189,72,173,198,7 
2,233,8,141,198,72,32,158,43,7338 
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2870 DATA 144,1,96,238,151,43,288,3,23 

8,152,43,238,154,43,288,3,8712 

2088 DATA 238,155,43,76,231,43,134,175 

,178,189,201,74,166,175,96,165,201? 

2098 DATA 155,133,150,165,156,24,101,1 

57,133,151,10,168,185,74,76,133,8058 

2100 DATA 130,208,185,74,76,133,131,16 

0,0,177,130,16,93,165,193,24,7046 

2110 DATA 105,4,133,154,32,56,43,160,0 

, 165 , 150 , 145, 130, 165, 144 , 160 , 9075 

2128 DATA 1,145,138,200,165,193,145,13 

0,280,169,8,5,194,145,130,32,8203 

2130 DATA 249,59,160,9,185,192,36,145, 

130, 200, 196 , 193, 208, 246, 165, 193, 5819 

2148 DATA 24,105,4,133,154,165,151,32, 

101,44,96,10,168,200,200,76,7716 

2150 DATA 127,44,185,74,76,24,101,154, 

153,74,76,200,185,74,76,105,7293 

2160 DATA 0,153,74,76,200,192,128,288, 

233,96,197,150,208,6,165,151,2407 

2170 DATA 32,165,44,56,176,151,160,2,1 

77,130,24,101,130,133,130,165,8321 

2180 DATA 131,105,0,133,131,32,249,59, 

76,33,44,72,160,2,177,130,5320 

2190 DATA 24,105,4,133,154,32,176,43,1 

04,18,168,200,200,76,205,44,8233 

2200 DATA 185,74,76,56,229,154,153,74, 

76,288,185,74,76,233,0,153,9022 

2210 DATA 74,76,200,192,128,208,233,96 

,162,17,32,219,44,202,16,250,339 

2220 DATA 96,189,188,69,133,128,189,19 

8,69,133,129,169,8,160,2,145,7838 

2230 DATA 128,200,192,40,208,249,96,16 

4,143,24,121,282,75,201,40,176,499 

2240 DATA 3,200,208,245,132,148,96,169 

,0,133,145,165,156,133,139,165,1291 

2250 DATA 139,32,39,45,230,139,230,145 

,165,145,201,18,208,241,96,10,544 

2260 DATA 168,185,74,76,133,130,200,18 

5,74,76,133,131,96,72,165,143,9129 

2278 DATA 133,138,169,2,133,192,32,241 

,44,166,145,32,219,44,184,32,6733 

2280 DATA 25,45,160,0,177,130,201,255, 

240,24,197,138,240,27,144,19,172 

2290 DATA 164,138,185,202,75,24,101,19 

2,133,192,230,138,165,138,197,148,3430 

23O0 DATA 144,224,96,32,242,59,76,60,4 

5,165,130,24,105,4,133,132,5185 

2318 DATA 165,131,105,0,133,133,164,14 

5,185,188,69,133,134,185,198,69,1849 

2328 DATA 133,135,165,192,133,141,160, 

1,177,130,133,144,160,3,177,130,9566 

2338 DATA 16,3,76,33,46,41,3,240,23,20 

1,1,240,91,160,2,177,6522 

2340 DATA 130,56,233,6,24,101,132,170, 

165,133,105,0,168,76,246,45,7943 

2350 DATA 32,145,46,160,2,177,130,168, 

169,155,153,192,36,136,177,132,973 

2368 DATA 153,192,36,136,16,248,169,19 

2,133,132,169,36,133,133,32,25,7115 

2370 DATA 54,164,138,185,202,75,133,14 

9,160,0,132,142,164,142,185,128,1028 

2388 DATA 5,32,0,44,164,141,145,134,23 

0,142,230,141,165,142,197,149,3562 

2390 DATA 208,234,32,145,46,76,74,45,1 

66,132,164,133,32,137,221,32,7681 

2400 DATA 79,46,32,230,216,32,201,52,7 

6,203,45,169,1,133,194,32,7216 

2410 DATA 66,46,32,68,218,32,8,216,162 

,192,160,36,32,167,221,169,289 

2428 DATA 6,133,193,32,9,44,96,162,0,1 

69,5,133,149,164,138,185,8280 

2438 DATA 202,75,201,4,208,2,198,149,1 

64,141,189,215,70,145,134,208,2726 

2440 DATA 232,228,149,288,245,76,74,45 

,169,36,133,244,169,192,133,243,4806 

2458 DATA 169,0,133,242,96,169,5,133,2 

44,169,128,133,243,169,8,133,1122 

2460 DATA 242,96,32,79,46,32,230,216,1 

66,0,177,243,48,6,153,192,9444 

2478 DATA 36, 288, 208, 246, 41, 127, 153, 19 

2,36,200,132,193,192,1,240,22,642 

2480 DATA 173,192,36,201,48,208,15,160 

,0,185,193,36,153,192,36,200,9644 

2490 DATA 196,193,208,245,198,193,96,1 

62,127,169,32,157,192,36,282,16,147 

2500 DATA 250,96,160,0,185,192,36,201, 



155,240,18,41,127,281,123,176,970 

2510 DATA 6,201,97,144,2,73,32,153,192 

,36,200,208,231,96,32,218,652 

2520 DATA 44,32,205,46,32,255,41,32,17 

1,40,32,1,45,32,85,48,1839 

2538 DATA 76,104,42,169,0,133,143,133, 

156,133,158,133,155,133,157,133,907 

2540 DATA 147,169,2,133,146,164,143,24 

,121,202,75,141,188,72,96,32,7500 

2550 DATA 146,42,160,26,185,246,70,153 

,34,35,136,16,247,160,32,185,8714 

2568 DATA 17,71,153,74,35,136,16,247,1 

69,0,56,237,189,72,133,212,386 

2570 DATA 165,106,237,190,72,133,213,3 

2,170,217,32,230,216,160,0,177,2015 

2588 DATA 243,72,41,127,32,0,44,153,61 

,35,200,104,16,241,160,0,5619 

2590 DATA 185,199,78,281,155,240,11,32 

,0,44,153,39,35,200,192,16,5717 

2600 DATA 208,238,32,129,62,76,146,42, 

32,58,50,32,115,50,176,48,3345 

2618 DATA 32,54,61,176,43,32,115,50,16 

2,0,185,192,35,157,192,35,7139 

2620 DATA 201,155,240,4,280,232,208,24 

2,162,3,189,192,35,32,0,44,7129 

2630 DATA 157,197,74,202,16,244,165,15 

0,141,178,72,165,151,141,177,72,1675 

2640 DATA 96,32,121,48,162,1,189,199,7 

4,157,173,35,189,197,74,157,482 

2658 DATA 153,35,202,16,241,165,156,24 

,101,157,32,25,45,160,0,177,5810 

2660 DATA 130,201,255,240,7,205,178,72 

,248,11,144,3,76,242,47,32,7487 

2678 DATA 242,59,76,151,47,160,3,177,1 

30,41,3,240,31,201,1,208,7547 

2688 DATA 235,32,111,48,32,230,216,160 

,0,177,243,72,41,127,32,0,5934 

2690 DATA 44,153,156,35,104,48,33,280, 

192, 14, 208, 237, 160, 2, 177, 130, 130 

27O0 DATA 133,176,32,249,59,160,0,177, 

130,32,0,44,153,156,35,200,6864 

2710 DATA 196,176,240,4,192,14,208,239 

,173,177,72,32,25,45,165,155,8819 

2720 DATA 133,138,168,0,177,130,201,25 

5,240,6,197,138,240,9,144,1,186 

2730 DATA 96,32,242,59,76,252,47,160,3 

,177,130,41,3,240,31,201,8152 

2748 DATA 1,208,237,32,111,48,32,238,2 

16,168,8,177,243,72,41,127,9385 

2750 DATA 32,0,44,153,176,35,104,48,33 

,208,192,14,208,237,160,2,8759 

2760 DATA 177,130,133,176,32,249,59,16 

0,0,177,130,32,0,44,153,176,6958 

2770 DATA 35,200,196,176,240,4,192,14, 

208,239,96,166,155,165,158,32,1694 

2788 DATA 151,69,144,6,169,3,133,194,2 

08,34,168,3,177,130,41,3,5663 

2790 DATA 133,194,76,134,48,32,249,59, 

166,138,164,131,76,137,221,160,1673 

2808 DATA 119,169,0,153,32,35,200,192, 

160,208,248,96,165,194,18,10,9746 

2818 DATA 10,170,160,31,189,74,71,153, 

0,32,232,200,192,39,208,244,2212 

2820 DATA 96,32,210,44,169,49,141,193, 

78,32,58,50,32,115,50,176,5148 

2830 DATA 3,141,193,70,162,32,32,129,4 

0,169,1,133,145,169,3,162,6777 

2848 DATA 32,157,66,3,169,192,157,68,3 

,169,70,157,69,3,169,6,4977 

2850 DATA 157,74,3,169,8,157,75,3,32,8 

6,228,16,6,32,148,52,2637 

2868 DATA 76,196,46,162,32,169,5,157,6 

6,3,169,128,157,68,3,169,6348 

2870 DATA 5,157,69,3,169,0,157,73,3,16 

9,20,157,72,3,32,86,2591 

2880 DATA 228,16,11,32,129,62,162,32,3 

2,129,48,76,196,46,32,52,3142 

2898 DATA 49,162,8,160,11,189,128,5,28 

1,155,240,10,32,0,44,145,5543 

2900 DATA 128,288,232,76,15,49,238,145 

,165,145,281,17,288,181,32,129,699 

2918 DATA 62,32,218,44,169,0,133,145,2 

40,169,164,145,185,188,69,133,2268 

2920 DATA 128,185,198,69,133,129,96,32 

,58,50,32,115,58,32,156,58,3575 

2938 DATA 32,119,54,144,5,168,165,76,2 

15,48,32,168,54,144,3,76,5352 
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2940 DATA 184,46,169,8,168,11,288,18,3 

2,58,58,32,115,58,32,156,3114 

2958 DATA 58,32,119,54,176,223,169,4,1 

68,7,133,173,132,174,162,32,9213 

2968 DATA 32,129,48,162,32,165,173,157 

,74,3,169,3,157,66,3,169,5948 

2978 DATA 199,157,68,3,169,78,157,69,3 

,169,8,157,75,3,32,86,3889 

2988 DATA 228,16,3,76,215,48,162,32,16 

5,174,168,157,66,3,169,282,9938 

2998 DATA 157,68,3,169,75,157,69,3,192 

,7,288,18,169,255,157,72,9272 

3608 DATA 3,157,73,3,288,17,173,189,72 

,56,233,282,157,72,3,173,9478 

3818 DATA 198,72,233,75,157,73,3,32,86 

,228,16,7,192,136,248,3,7285 

3828 DATA 76,215,48,162,32,32,129,48,1 

65,173,281,8,248,19,162,32,7743 

3038 DATA 169,282,24,125,72,3,141,189, 

72,169,75,125,73,3,141,198,7861 

3040 DATA 72,76,184,46,32,58,50,32,115 

,58,176,43,32,54,61,176,3956 

3050 DATA 38,165,151,281,47,176,32,165 

,158,281,55,176,26,32,184,42,6685 

3860 DATA 32,218,44,165,158,133,143,13 

3,155,165,151,133,156,133,158,169,3183 

3070 DATA 8,32,215,46,76,198,46,96,168 

,114,185, 192, 36, 153, 192, 35, 9542 

3080 DATA 136,16,247,96,32,46,68,76,18 

4,46,169,1,141,187,72,96,6947 

3898 DATA 165,155,178,165,156,24,181,1 

57,133,138,32,151,69,144,1,96,6827 

3188 DATA 165, 138, 32, 165, 44, 32, 1B4, 42, 

169,2,133,192,165,157,133,145,9739 

3118 DATA 165,158,32,39,45,32,184,42,9 

6,168,8,185,192,35,281,155,8489 

3128 DATA 248,9,281,32,248,7,288,192,3 

2,288,248,56,96,280,185,192,3862 

3138 DATA 35,281,155,248,246,281,32,28 

8,7,200,192,32,208,248,248,235,7299 

3148 DATA 24,96,162,8,185,192,35,157,1 

99,78,281,155,248,4,288,232,3878 

3158 DATA 288,242,96,32,58,58,32,115,5 

8,176,49,32,54,61,176,44,3985 

3168 DATA 238,151,165,151,281,2,144,36 

,281,33,176,32,164,158,153,282,1322 

3178 DATA 75,32,218,44,32,255,41,32,1, 

45,164,143,132,155,169,2,6788 

3188 DATA 133,146,24,121,282,75,141,18 

8,72,32,104,42,96,166,155,165,9265 

3190 DATA 158,32,151,69,144,1,96,168,1 

, 177, 130, 133, 0, 208, 177, 138, 9159 

3288 DATA 133,154,288,177,130,41,3,208 

,22,32,249,59,164,154,136,177,655 

3218 DATA 138,153,192,36,136,16,248,16 

9,255,133,148,32,48,62,96,281,15 

3228 DATA 2,248,29,32,249,59,166,138,1 

64,131,32,137,221,32,230,216,2727 

3230 DATA 160,8,177,243,72,41,127,153, 

192,36,184,48,218,200,208,242,4846 

3248 DATA 165,154,56,233,6,133,154,76, 

3,51,169,1,133,191,32,231,8314 

3258 DATA 58,32,145,62,8,169,8,133,191 

,48,144,1,96,184,184,165,6784 

3268 DATA 8,133,144,76,34,38,32,146,42 

,164,155,185,10,76,133,144,7488 

3278 DATA 162,18,202,48,31,189,64,72,1 

57,34,35,224,5,144,243,189,155 

3288 DATA 77,72,157,74,35,189,98,72,15 

7,114,35,189,183,72,157,154,9155 

3298 DATA 35,76,188,51,76,243,51,173,2 

52,2,281,255,248,249,162,255,8269 

3388 DATA 142,252,2,281,28,208,1,96,16 

2,2,221,136,72,240,5,282,63 

3310 DATA 16,248,48,14,165,144,41,252, 

133,176,138,5,176,133,144,76,75 

3328 DATA 243,51,281,58,288,9,165,144, 

73,8,133,144,76,243,51,281,288 

3338 DATA 32,288,9,165,144,73,4,133,14 

4,76,243,51,162,9,221,165,243 

3340 DATA 72,248,5,282,16,248,48,175,1 

38,72,165,144,41,15,133,144,8566 

3358 DATA 184,18,18,18,18,5,144,133,14 

4,165,144,41,3,178,189,123,7948 

3368 DATA 72,141,51,35,165,144,41,8,74 

,74,74,178,189,121,72,141,7794 

3378 DATA 91,35,165,144,41,4,74,74,170 



,189,121,72,141,131,35,165,8388 

3388 DATA 144,41,240,74,74,74,74,170,1 

89,126,72,141,171,35,76,145,8932 

3390 DATA 51,32,96,51,164,155,165,144, 

153,10,76,96,165,158,166,155,846 

3488 DATA 32,151,69,144,1,96,32,96,51, 

168,1,165,144,145,130,166,8648 

3418 DATA 157,134,145,165,158,32,39,45 

,164,155,185,18,76,133,144,76,7952 

3428 DATA 184,42,173,68,71,73,3,141,68 

,71,178,168,8,189,50,71,5985 

3438 DATA 153,24,71,232,288,192,3,288, 

244,96,173,69,71,73,6,141,8787 

3448 DATA 69,71,178,168,8,189,56,71,15 

3,44,71,232,288,192,6,288,983 

3458 DATA 244,96,132,177,162,32,32,129 

, 48, 164, 177, 132, 212, 169, 8, 133, 29 

3468 DATA 213,32,178,217,32,238,216,16 

8,255,280,177,243,72,41,127,32,2532 

3478 DATA 8,44,153,231,78,104,16,241,3 

2,121,48,168,28,185,225,78,9246 

3488 DATA 153,156,35,136,16,247,169,25 

5,141,252,2,32,186,62,96,168,9820 

3490 DATA 255,200,177,243,153,8,5,16,2 

48,168,127,169,48,153,192,36,55 

3500 DATA 136,16,250,169,36,141,192,36 

, 169, 193, 133, 132, 169, 36, 133, 133, 1074 

3510 DATA 165,144,72,41,240,74,74,74,7 

4,141,176,72,104,41,4,288,7287 

3528 DATA 12,168,255,288,177,243,145,1 

32,16,249,76,99,53,168,255,288,4443 

3538 DATA 185,0,5,48,5,281,46,288,246, 

136,132,179,162,29,169,2,9392 

3548 DATA 141,175,72,185,8,5,41,127,15 

7,128,5,202,136,48,13,206,7423 

3558 DATA 175,72,16,239,169,44,157,128 

,5,282,16,226,232,160,1,189,1353 

3568 DATA 128,5,153,192,36,288,232,224 

,38,288,244,166,179,189,0,5,1888 

3578 DATA 16,11,136,185,192,36,9,128,1 

53,192,36,288,12,232,189,0,9447 

3588 DATA 5,153,192,36,48,3,288,288,24 

4,165,144,41,8,248,8,169,143 

3598 DATA 192,133,132,169,36,133,133,1 

69, 8, 141, 113, 54, 168, 255, 288, 185, 3292 

3688 DATA 192,36,48,46,281,69,288,246, 

238,113,54,136,185,192,36,9,318 

3618 DATA 128,153,192,36,162,255,232,2 

88, 185, 192, 36, 72, 41, 127, 157, 114, 1663 

3628 DATA 54,169,48,153,192,36,184,16, 

237,232,142,113,54,169,155,157,2876 

3638 DATA 114,54,168,255,288,185,192,3 

6,16,16,41,127,153,192,36,288,9790 

3640 DATA 169,46,153,192,36,132,179,76 

, 213, 53 , 281 , 46 , 208, 238 , 132, 179, 3939 

3658 DATA 288,185,192,36,16,258,41,127 

,153,192,36,165,179,24,189,176,618 

3668 DATA 72,168,173,176,72,208,1,136, 

169,155,153,193,36,173,113,54,513 

3678 DATA 240,16,162,8,189,114,54,153, 

193,36,281,155,240,4,232,288,3683 

3688 DATA 288,242, 173, 193, 36, 281, 45y28 

8, 22, 173, 194, 36, 281, 44, 208, 15, 111 

3698 DATA 168,8,185,195,36,153,194,36, 

201,155,240,3,208,208,243,168,5681 

3788 DATA 255,288,177,132,201,155,208, 

249,132,179,162,127,169,32,157,128,412 

9 

3718 DATA 5,282,16,258,165,144,41,3,17 

8,248,36,282,288,14,164,138,1485 

3728 DATA 185,282,75,56,229,179,16,22, 

162,8,248,21,164,138,185,282,1686 

3738 DATA 75,56,229,179,16,7,73,255,74 

,168,76,66,54,74,178,160,8815 

3748 DATA 255,280,177,132,201,155,248, 

6,157,128,5,232,208,243,169,128,5338 

3758 DATA 133,132,169,5,133,133,96,8,1 

18,54,249,61,155,173,199,78,424 

3768 DATA 281,68,288,23,173,288,70,201 

,58,248,14,281,56,248,14,281,1978 

3778 DATA 49,144,8,201,52,176,4,144,4, 

24,96,56,96,173,201,70,7240 

3788 DATA 281,58,248,245,288,245,169,0 

,141,34,35,162,32,32,129,48,6867 

3798 DATA 169,36,157,66,3,169,78,157,6 

9,3,169,199,157,68,3,32,5989 

38O0 DATA 86,228,189,67,3,72,162,32,32 
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,129,46,164,201,1,240,2,6539 

3819 DATA 24,96,169,72,162,139,168,1,3 

2,48,69,173,252,2,162,255,1818 

3828 DATA 281,43,248,236,281,35,288,24 

3,142,252,2,56,96,169,8,133,628 

3838 DATA 188,32,68,218,162,8,134,193, 

189,192,36,157,192,35,281,155,2824 

3848 DATA 248,3,232,288,243,134,193,16 

2,1,189,192,35,281,64,248,8,1948 

3858 DATA 232,228,193,288,244,76,181,5 

8,134,138,169,56,133,131,169,86,1387 

3868 DATA 133,138,232,134,139,168,8,17 

7,138,248,234,48,18,221,192,35,2844 

3878 DATA 288,4,232,288,288,241,169,4, 

32,251,59,166,139,288,238,41,3547 

3888 DATA 127,221,192,35,288,248,168,3 

,177,138,133,176,232,134,139,18,2394 

3898 DATA 178,189,127,56,141,246,55,18 

9,128,56,141,247,55,169,8,133,557 

3988 DATA 178,164,139,185,192,35,281,4 

8,248,2,56,96,288,185,192,35,1838 

3918 DATA 281,68,176,246,281,65,176,35 

, 132, 242, 132, 139, 32, 241, 61, 32, 611 

3928 DATA 8,216,176,238,32,254,55,176, 

225,164,242,185,192,35,281,41,4481 

3938 DATA 288,3,76,286,55,281,44,246,2 

11,288,287,132,139,32,54,61,786 

3948 DATA 176,288,164,178,165,158,153, 

159,8,165,151,153,163,8,165,176,2345 

3958 DATA 281,7,246,9,166,158,165,151, 

32,22,56,176,227,164,178,169,2871 

3968 DATA 128,153,198,8,32,254,55,176, 

215,165,139,24,185,4,133,139,9587 

3978 DATA 168,76,133,55,288,132,146,16 

4,138,166,148,32,286,61,162,8,9781 

3988 DATA 189,192,35,281,155,248,3,232 

,288,246,134,193,32,221,61,164,4725 

3998 DATA 138,169,35,153,192,35,165,19 

5,153,193,35,32,255,255,144,1,2285 

4688 DATA 96,76,1,55,165,188,164,178,1 

53,195,8,238,178,288,192,3,3877 

4816 DATA 176,8,178,32,199,61,238,188, 

24,96,56,96,134,158,32,25,6917 

4828 DATA 45,168,6,177,138,281,255,248 

,6,197,158,246,11,144,2,56,293 

4638 DATA 96,32,242,59,76,27,56,96,168 

,3,177,138,41,3,248,26,6422 

4848 DATA 281,1,248,18,168,2,177,138,5 

6,233,6,32,251,59,169,4,8866 

4858 DATA 32,251,59,166,138,164,131,32 

,137,221,24,96,83,81,213,8,8499 

4868 DATA 65,66,211,1,83,81,218,2,82,7 

8,196,3,69,88,288,4,6384 

4078 DATA 76,79,199,5,73,78,212,6,67,7 

8,212,7,83,85,285,8,6557 

4888 DATA 65,86,197,9,8,245,56,147,56, 

287,56,14,57,166,57,175,8866 

4696 DATA 57,163,56,45,57,61,57,132,57 

,32,248,57,165,212,41,127,8932 

4186 DATA 133,212,166,195,32,199,61,24 

,96,169,8,141,258,61,32,248,786 

4110 DATA 57,32,79,46,32,238,216,32,45 

,58,165,212,72,32,8,216,8144 

4128 DATA 184,16,15,173,256,61,248,18, 

162,179,168,74,32,152,221,32,636 

4138 DATA 96,218,76,156,56,32,248,57,1 

62,36,168,62,32,167,221,32,9681 

4148 DATA 289,222,162,185,166,74,32,15 

2,221,32,48,219,144,1,96,32,7918 

4158 DATA 284,221,176,6,32,251,61,76,2 

04,56,96,32,248,57,32,289,9731 

4168 DATA 222,162,185,160,74,32,152,22 

1,32,219,218,144,1,96,32,284,1688 

4178 DATA 221,144,228,96,32,248,57,162 

,191,168,74,32,152,221,32,162,789 

4188 DATA 218,144,1,96,32,238,216,32,4 

5,58,32,79,46,32,8,216,5168 

4198 DATA 76,156,56,32,4,58,32,11,58,3 

2,22,58,32,184,57,76,2397 

4288 DATA 156,56,96,32,4,58,32,11,58,3 

2,22,58,32,79,57,176,2537 

4218 DATA 3,76,156,56,96,32,35,58,32,6 

8, 218, 165, 167, 133, 169, 32, 8864 

4228 DATA 182,221,166,169,165,171,32,2 

2,56,176,7,248,7,32,102,218,9847 

4238 DATA 144,2,56,96,238,169,165,169, 

197,168,248,227,144,225,238,171,9626 



4248 DATA 165,171,197,172,248,213,144, 

211,24,96,32,4,58,32,11,58,5871 

4258 DATA 32,22,58,32,184,57,176,19,32 

,73,58,32,79,57,176,11,3955 

4268 DATA 32,87,58,32,48,219,176,3,76, 

156,56,96,32,248,57,32,6885 

4278 DATA 284,221,144,244,96,32,248,57 

,32,289,222,144,245,96,32,35,1305 

4288 DATA 58,169,8,133,173,133,174,165 

,167, 133, 169, 166, 169, 165, 171, 32, 3677 

4298 DATA 22,56,176,6,238,173,288,2,23 

8,174,238,169,165,169,197,168,7158 

4308 DATA 248,233,144,231,238,171,165, 

171,197,172,248,219,144,217,32,68,6388 

4318 DATA 218,165,173,133,212,165,174, 

133,213,32,178,217,24,96,165,178,3931 

4328 DATA 248,4,281,1,248,3,184,184,56 

,96,165,178,281,2,288,246,3865 

4338 DATA 96,168,1,185,198,8,16,238,13 

6,16,248,96,165,164,197,163,3763 

4348 DATA 144,228,165,168,197,159,144, 

222, 96, 162, 7, 181, 159, 149, 167, 282, 5421 

4358 DATA 16,249,96,168,8,177,243,48,1 

5,281,46,240,3,288,288,245,4349 

4360 DATA 141,250,61,169,155,145,243,9 

6, 41, 127 , 145, 243, 200 , 208, 244 , 166, 7952 

4370 DATA 188,189,251,72,168,189,193,7 

2,178,32,167,221,96,166,188,189,5585 

4388 DATA 251,72,168,189,193,72,178,32 

,152,221,96,168,1,185,192,35,1475 

4398 DATA 281,68,176,4,281,65,176,8,28 

0,196,193,208,240,76,254,58,5263 

4400 DATA 132,138,152,24,185,4,133,146 

,32,54,61,176,19,165,151,32,6965 

4416 DATA 25,45,168,8,177,138,261,255, 

248,6,197,158,248,9,144,1,1726 

4428 DATA 96,32,242,59,76,148,58,166,3 

,177,130,41,3,248,241,281,2397 

4438 DATA 1,248,18,160,2,177,130,56,23 

3,6,32,251,59,169,4,32,7237 

4440 DATA 251,59,166,130,164,131,32,13 

7,221,169,4,133,139,32,207,58,368 

4450 DATA 164,138,76,114,58,164,138,16 

6,148,32,286,61,165,193,56,229,3871 

4468 DATA 139,133,193,32,221,61,164,13 

8,169,35,153,192,35,165,188,268,3818 

4478 DATA 153,192,35,132,138,178,189,2 

51,72,168,189,193,72,178,32,167,3872 

4486 DATA 221,236,188,96,168,1,185,192 

,35,281,155,248,53,261,48,248,4575 

4498 DATA 13,281,41,248,9,281,35,288,9 

,286,200,76,60,59,200,76,163 

4506 DATA 0,59,132,242,132,138,32,241, 

61,32,8,216,176,41,166,242,2387 

4510 DATA 138,133,148,56,229,138,133,1 

39,32,287,58,164,138,286,196,193,5168 

4520 DATA 240,27,185,192,35,281,155,24 

0,20,162,4,221,82,73,248,9,851 

4538 DATA 282,16,248,281,41,248,238,56 

,96,286,76,8,59,168,0,185,9682 

4546 DATA 192,35,201,155,240,7,201,40, 

240,44,200,208,242,168,6,185,4636 

4558 DATA 192,35,281,155,248,9,281,41, 

248,42,288,288,242,248,37,162,5953 

4568 DATA 8,189,193,35,157,64,36,281,1 

55,248,5,232,268,76,123,59,1773 

4578 DATA 32,7,68,176,15,96,288,185,19 

2,35,281,41,248,8,281,155,2539 

4588 DATA 248,2,208,242,56,96,132,288, 

136, 185, 192, 35, 201, 40, 208, 248, 5727 

4590 DATA 132,207,162,255,164,207,232, 

200, 196 , 288, 248, 9,185, 192, 35 , 157 , 6658 

4600 DATA 64,36,76,176,59,169,155,157, 

64,36,32,7,60,176,213,165,9769 

4610 DATA 208,56,229,287,261,1,248,284 

,166,207,173,64,36,157,192,35,3109 

4620 DATA 173,65,36,232,157,192,35,164 

,208,232,200,185,192,35,157,192,6478 

4638 DATA 35,281,155,268,244,76,87,59, 

168,2,177,138,32,251,59,169,1687 

4640 DATA 4,24,101,130,133,130,165,131 

,105,0,133,131,96,160,0,132,8743 

4650 DATA 142,32,164,66,201,155,240,35 

,144,1,96,32,221,60,165,183,1345 

4668 DATA 201,94,208,14,32,19,61,176,2 

41,32,249,68,32,197,61,76,9691 

4676 DATA 7,68,165,142,24,185,3,168,76 
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,9,68,168,8,132,142,32,5819 

4688 DATA 164,68,281,155,248,48,144,1, 

96,32,221,68,165,183,281,42,1428 

4698 DATA 288,7,32,219,218,176,241,144 

,9,281,47,288,16,32,48,219,733 

4788 DATA 176,238,32,249,68,32,197,61, 

164,142,76,55,68,165,142,24,8783 

4718 DATA 185,3,168,76,55,68,168,8,132 

,142,32,164,68,281,155,248,2871 

4728 DATA 39,144,1,96,32,221,68,165,18 

3,281,43,288,7,32,182,218,843 

4738 DATA 176,241,144,9,281,45,288,235 

, 32, 96, 218, 176, 238, 32, 249, 68, 4358 

4748 DATA 32,197,61,164,142,76,114,68, 

24,96,185,64,36,281,35,248,75 

4758 DATA 6,281,155,248,44,56,96,288,1 

85,64,36,281,155,248,246,133,5717 

4768 DATA 181,288,185,64,36,133,183,28 

1,155,248,22,288,185,64,36,281,3513 

4778 DATA 155,248,14,281,35,288,222,28 

8,185,64,36,281,155,248,214,133,6654 

4788 DATA 182,24,96,166,181,32,238,68, 

32, 141, 221, 166, 182, 32, 238, 68, 2678 

4798 DATA 32,156,221,96,189,193,72,133 

, 252, 189, 251, 72, 133, 253, 96, 165, 6986 

4888 DATA 142,24,185,2,168,24,185,3,17 

8,189,64,36,153,64,36,281,8253 

4818 DATA 155,248,5,288,232,76,3,61,96 

,166,181,32,238,68,32,141,9954 

4828 DATA 221,32,289,222,144,2,56,96,1 

66, 182, 32, 238 , 68 , 32 , 156, 221 , 2138 

4838 DATA 32,219,218,176,241,32,284,22 

1,176,236,24,96,32,123,61,176,2488 

4848 DATA 5,32,79,61,144,1,96,164,285, 

288,32,123,61,176,247,32,1247 

4858 DATA 148,61,164,285,96,165,283,16 

2,2,221,56,73,248,5,282,16,815 

4868 DATA 248,48,15,189,59,73,133,141, 

165,284,281,91,176,4,281,65,2824 

4878 DATA 176,2,56,96,56,233,65,24,181 

, 141, 133 , 158 , 281, 64 , 176 , 242, 3538 

4888 DATA 96,185,192,35,281,155,248,16 

, 133, 283, 288, 185, 192 , 35 , 281 , 155 , 5933 

4898 DATA 248,6,133,284,132,285,24,96, 

56,96,165,283,32,188,61,176,1565 

4988 DATA 23,133,151,165,284,32,188,61 

, 176, 14, 138, 24, 181, 151, 178, 282, 2881 

4918 DATA 224,64,176,4,134,151,24,96,5 

6,96,162,9,221,62,73,248,348 

4928 DATA 5,282,16,248,56,96,189,72,73 

,24,96,166,181,32,238,68,488 

4938 DATA 32,171,221,96,189,192,35,153 

,192,35,281,155,248,4,288,232,5954 

4948 DATA 288,242,96,166,193,189,192,3 

5,157,194,35,282,228,138,248,245,8885 

4958 DATA 176,243,238,193,238,193,96,1 

69,35,133,244,169,192,133,243,96,7382 

4968 DATA 251,61,35,62,32,182,221,162, 

42,168,62,32,167,221,162,36,1896 

4978 DATA 168,62,32,137,221,32,48,219, 

162,42,168,62,32,152,221,32,9988 

4988 DATA 182,218,162,191,168,74,32,15 

2,221,32,219,218,96,48,62,179,2588 

4998 DATA 69,169,8,133,139,168,178,134 

,148,166,139,189,216,69,24,185,2425 

5888 DATA 2,133,128,189,228,69,185,8,1 

33,129,166,148,189,192,36,32,847 

5818 DATA 8,44,228,148,288,2,73,128,14 

5,128,232,288,192,38,288,236,6422 

5828 DATA 168,8,238,139,165,139,281,3, 

288,285,96,173,31,288,281,6,2996 

5838 DATA 288,16,184,184,169,155,141,1 

92,36,169,8,133,191,141,281,75,2578 

5848 DATA 56,96,173,252,2,281,255,248, 

226,32,163,42,166,148,96,32,2569 

5858 DATA 145,46,169,8,133,148,32,48,6 

2,32,186,62,166,148,164,191,489 

5868 DATA 288,38,172,281,75,288,25,168 

,4,217,188,72,248,5,136,16,262 

5878 DATA 248,48,28,141,179,72,281,155 

,288,78,148,179,72,76,255,62,3889 

5888 DATA 281,155,288,3,76,255,62,281, 

27,288,18,32,186,62,281,155,737 

5898 DATA 248,46,76,222,62,168,12,217, 

76,78,248,18,136,16,248,157,2892 

5188 DATA 192,36,232,134,148,224,114,1 

44,173,282,134,148,288,168,185,58,6888 



5118 DATA 78,141,258,62,185,63,78,141, 

251,62,32,255,255,76,149,62,3278 

5128 DATA 168,114,136,185,192,36,281,3 

2,240,248,169,155,288,153,192,36,6852 

5138 DATA 132,193,169,8,133,191,24,96, 

32,145,46,169,8,133,148,96,8792 

5148 DATA 166,148,248,8,282,169,32,157 

,192,36,134,148,96,166,148,248,4828 

5158 DATA 251,282,134,148,96,166,148,2 

24,113,176,241,232,134,148,96,166,7225 

5168 DATA 148,189,193,36,157,192,36,23 

2,224,122,288,245,96,162,122,189,7288 

5178 DATA 192,36,157,193,36,282,228,14 

8,16,245,232,169,32,157,192,36,4893 

5188 DATA 141,50,37,96,165,148,56,233, 

38,16,3,24,185,114,133,148,8832 

5198 DATA 96,165,148,24,185,38,281,114 

,144,244,56,233,114,76,189,63,1565 

5288 DATA 162,0,165,148,281,38,144,8,1 

62,38,201,76,144,2,162,76,9261 

5210 DATA 134,148,96,32,127,63,169,37, 

133,141,32,76,63,198,141,16,8381 

5228 DATA 249,96,32,127,63,169,37,133, 

141, 32, 62, 63, 198, 141, 16, 249, 716 

5238 DATA 96,169,4,141,124,37,169,1,14 

1,281,75,32,142,62,176,47,8867 

5248 DATA 32,156,46,162,8,169,89,133,1 

28,169,70,133,129,160,0,177,1828 

5258 DATA 128,248,222,217,192,36,288,3 

4, 288 , 192 , 3, 288 , 242 , 189, 111, 78, 5122 

5268 DATA 141,236,63,189,118,78,141,23 

7,63,32,146,42,32,255,255,169,4223 

5278 DATA 0,141,124,37,141,201,75,76,2 

01,37,232,165,128,24,105,3,9450 

5280 DATA 133,128,144,201,230,129,208, 

197, 165, 155, 162, 0, 56, 233, 26, 48, 1826 

5298 DATA 3,232,268,248,72,138,24,185, 

161,141,19,32,184,24,185,187,9276 

5380 DATA 141,20,32,166,158,232,138,16 

2,8,56,233,18,48,3,232,208,1482 

5318 DATA 248,72,138,24,185,144,141,21 

, 32, 184, 24, 185, 154, 141, 22, 32, 6426 

5328 DATA 96,32,146,42,169,88,141,199, 

78,169,58,141,288,70,169,155,3235 

5330 DATA 141,201,70,169,72,162,3,160, 

0,140,72,71,32,48,69,32,5871 

5348 DATA 119,69,32,184,69,32,142,69,3 

2,184,69,165,159,133,138,165,898 

5350 DATA 160,56,229,159,48,7,165,164, 

56,229,163,16,8,160,141,32,9444 

5360 DATA 140,52,76,196,46,162,32,32,1 

29,40,162,32,169,3,157,66,7675 

5370 DATA 3,169,78,157,69,3,169,199,15 

7,68,3,169,8,157,75,3,7212 

5388 DATA 169,8,157,74,3,32,86,228,48, 

213, 166, 138, 189, 282, 75, 133, 3547 

5398 DATA 149,165,163,32,151,69,176,93 

, 168 , 1, 177 , 138 , 133, 144, 168 ,3,781 

5488 DATA 177,138,16,3,76,98,65,41,3,2 

48,3,76,115,65,168,2,5857 

5418 DATA 177,138,168,32,249,59,169,15 

5, 153, 192, 36, 136, 48, 8, 177, 138, 1297 

5428 DATA 153,192,36,76,218,64,169,192 

,133,132,169,36,133,133,32,25,9841 

5438 DATA 54,32,49,65,238,138,165,138, 

197, 168, 248, 174, 144, 172, 165, 159, 7592 

5448 DATA 133,138,32,26,65,238,163,165 

,163,197,164,240,157,144,155,162,7310 

5450 DATA 32,32,129,40,96,32,87,65,76, 

248,64,169,11,162,32,157,9113 

5460 DATA 66,3,169,0,157,72,3,157,73,3 

,169,155,32,86,228,48,8747 

5478 DATA 34,96,169,11,162,32,157,66,3 

,165,149,157,72,3,169,8,7589 

5488 DATA 157,73,3,169,5,157,69,3,169, 

128,157,68,3,32,86,228,8711 

5498 DATA 48,1,96,184,184,76,215,48,16 

2,127,169,32,157,128,5,282,1228 

5580 DATA 16,250,96,32,87,65,168,4,185 

,228,78,153,128,5,136,16,8918 

5518 DATA 247,76,248,64,281,1,288,19,3 

2,249,59,166,138,164,131,32,1386 

5528 DATA 137,221,32,238,216,32,281,52 

,76,248,64,168,2,177,138,168,3860 

5530 DATA 32,249,59,152,56,233,6,24,10 

1, 130, 170, 165, 131, 105, 0, 168, 677 

5548 DATA 76,126,65,32,58,58,32,115,58 
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,32,156,58,32,119,54,144,6167 

5550 DATA 3,76,79,49,32,169,54,144,3,7 

6,184,46,32,146,42,169,7945 

5569 DATA 72,162,34,76,86,64,32,146,42 

,169,71,162,138,169,9,149,9635 

5579 DATA 79,71,149,72,71,32,48,69,32, 

119,69,32,194,69,32,142,5616 

5589 DATA 69,32,194,69,32,137,67,32,19 

4,69,165,169,197,159,176,3,844 

5599 DATA 76,124,64,165,164,197,163,14 

4,247,165,161,197,159,298,6,165,6778 

5609 DATA 165,197,163,240,235,165,161, 
197,160,208,6,165,165,197,164,240,9245 

5610 DATA 223,165,160,56,229,159,133,1 
71,133,169,165,164,56,229,163,133,6442 
5620 DATA 172,56,165,161,229,159,133,2 
02,56,165,165,229,163,133,201,32,5914 
5639 DATA 59,67,19,179,189,131,67,141, 
215,66,189,132,67,141,216,66,3251 
5649 DATA 32,194,42,165,159,133,173,16 
5,161,133,174,165,165,32,25,45,1151 

5659 DATA 169,9,177,139,201,255,240,19 
,197,174,240,8,176,13,32,242,4299 

5660 DATA 59,76,79,66,166,174,165,165, 
32,165,44,165,130,133,132,165,3295 
5670 DATA 131,133,133,165,163,32,25,45 
,160,0,177,130,201,255,240,87,4790 
5680 DATA 197,173,240,8,176,81,32,242, 
59,76,119,66,169,35,133,135,735 

5698 DATA 169,192,133,134,160,2,177,13 
0,24,105,4,168,136,133,154,132,1647 
5700 DATA 149,177,130,145,134,136,192, 
255,208,247,165,174,141,192,35,165,797 

5710 DATA 132,133,130,165,133,133,131, 

173,70,71,240,3,32,169,67,164,1349 

5720 DATA 149,200,132,154,32,56,43,165 

,165,32,101,44,164,149,177,134,1859 

5730 DATA 145,132,136,192,255,208,247, 

32,255,255,176,3,76,74,66,32,2166 

5740 DATA 46,68,32,1,45,32,104,42,24,9 

6,230,174,230,173,198,171,4415 

5750 DATA 165,171,201,255,208,26,230,1 

65,230,163,198,172,165,172,201,255,159 

5760 DATA 298,2,56,96,165,159,133,173, 

165,161,133,174,165,169,133,171,6586 

5779 DATA 24,96,239,174,239,173,198,17 

1,165,171,281,255,298,242,198,165,2482 

5789 DATA 198,163,76,249,66,198,174,19 

8,173,198,171,165,171,291,255,298,1436 

5798 DATA 223,249,195,165,165,197,163, 

208,45,165,161,197,159,288,5,104,5458 

5880 DATA 104,76,124,64,144,28,165,160 

, 56, 229, 159, 24, 101, 161, 133, 161, 2976 

5810 DATA 201,64,176,235,165,160,72,16 

5,159,133,160,104,133,159,169,1,3491 

5820 DATA 24,96,169,0,24,96,144,250,16 

5,164,56,229,163,24,101,165,3346 

5830 DATA 133,165,201,64,176,201,165,1 

64,72,165,163,133,164,104,133,163,5583 

5840 DATA 169,2,24,96,233,66,36,67,17, 

67,169,2,133,176,169,71,9388 

5850 DATA 162,239,160,3,76,125,69,32,1 

46,42,169,1,133,176,141,70,9884 

5860 DATA 71,169,71,162,168,160,0,76,2 

09, 65, 160, 4, 185, 192, 35, 201, 2711 

5870 DATA 61,240,1,96,299,196,149,176, 

259,185,192,35,281,68,176,244,8166 

5888 DATA 281,65,144,248,148,73,71,32, 

54,61,144,5,172,73,71,288,9885 

5898 DATA 227,165,158,24,181,282,133,1 

58, 281 , 64, 176, 215, 165, 151, 24 , 181 , 4841 

5980 DATA 201,133,151,281,64,176,229,1 

72,73,71,162,2,165,150,221,59,3656 

5918 DATA 73,176,3,282,16,248,72,189,5 

6,73,153,192,35,104,56,253,2756 

5926 DATA 59,73,24,105,65,200,153,192, 

35,230,151,165,151,162,9,221,4907 

5930 DATA 72,73,176,3,202,16,248,72,18 

9,62,73,200,153,192,35,184,2496 

5948 DATA 56,253,72,73,178,189,62,73,2 

08,153,192,35,76,179,67,169,3877 

5950 DATA 0,133,151,133,150,173,69,71, 

208,29,32,111,68,236,150,165,2880 

5960 DATA 150,201,64,144,245,169,6,133 

,150,230,151,165,151,201,64,144,5915 



5978 DATA 233,32,1,45,76,184,42,32,111 

, 68, 238, 151, 165, 151, 281, 64, 2323 

5988 DATA 144,245,169,8,133,151,238,15 

8,165,158,281,64,144,233,176,225,8848 

5998 DATA 165,151,166,158,133,186,134, 

187,32,151,69,144,3,76,283,68,1291 

6880 DATA 165,130,133,188,165,131,133, 

189,168,3,177,130,48,239,201,2,3624 

601O DATA 208,235,136,177,138,56,233,6 

,168,169,155,153,192,36,32,249,4676 

6828 DATA 59,136,48,8,177,138,153,192, 

36,76,168,68,32,231,54,165,1559 

6030 DATA 188,133,130,165,189,133,131, 

168,2,177,138,56,233,2,24,181,397 

6848 DATA 138,133,252,165,131,185,8,13 

3,253,32,171,221,165,186,133,151,6491 

6858 DATA 165,187,133,158,96,32,146,42 

,169,71,162,186,168,8,148,72,235 

6868 DATA 71, 32, 48, 69, 32, 119, 6$, 32,184 

, 69, 32, 142, 69, 32, 184, 69, 5919 

6878 DATA 165,168,197,159,144,6,165,16 

4,197,163,176,3,76,124,64,165,2784 

6888 DATA 159,133,161,166,161,165,163, 

32,151,69,176,5,165,163,32,165,2436 

6898 DATA 44,238,161,165,161,197,168,2 

48,234,144,232,238,163,165,163,197,164 

8 

6188 DATA 164,248,228,144,218,32,146,4 

2,32,210,44,32,1,45,76,184,7323 

6118 DATA 42,133,133,134,132,132,177,1 

85,216,69,24,185,2,133,128,185,2458 

6128 DATA 228,69,185,8,133,129,168,8,1 

77,132,281,155,248,5,145,128,3749 

6130 DATA 200,208,245,96,32,163,42,201 

,155,208,2,24,96,201,27,208,2485 

6140 DATA 2,56,96,32,225,38,76,83,69,1 

74,72,71,165,155,149,159,2318 

6150 DATA 165,158,149,163,238,72,71,96 

,169,71,162,198,160,1,132,177,3912 

6160 DATA 32,48,69,32,83,69,176,1,96,1 

04,104,32,146,42,96,169,8754 

6170 DATA 71,162,218,168,2,76,125,69,1 

34,158,32,25,45,168,0,177,8767 

6180 DATA 130,201,255,240,6,197,150,24 

0,10,144,2,56,96,32,242,59,1113 

6198 DATA 76,156,69,24,96,216,69,78,71 

,32,72,112,152,35,35,35,6346 

6288 DATA 35,128,162,141,163,225,236,2 

27,128,136,227,137,128,145,153,152,824 

8 

6218 DATA 151,128,128,128,161,161,144, 

145,128,128,128,188,185,176,165,154,72 

68 

6228 DATA 128,128,128,128,128,128,128, 

128,128,155,128,162,141,163,225,236,81 

48 

6230 DATA 227,128,226,249,128,162,225, 

242,242,249,128,171,239,236,226,229,51 

03 

6240 DATA 128,134,128,162,242,249,225, 

238, 128, 179, 227, 232, 225, 248, 240, 229, 56 

23 

6258 DATA 236,128,155,23,31,62,76,99,1 

12,44,52,146,161,43,43,43,6958 

6268 DATA 63,63,63,63,63,63,63,63,63,6 

3,63,63,63,125,126,254,9697 

6278 DATA 255,28,29,38,31,157,156,127, 

158,159,68,73,82,71,79,84,9218 

6288 DATA 83,65,86,76,79,65,83,69,84,8 

7,73,68,76,73,83,8,5473 

6298 DATA 155,254,65,98,66,173,162,48, 

49,49,49,47,50,65,28,29,4904 

6300 DATA 38,31,8,28,11,4,3,13,5,6,7,1 

5,18,16,1,172,287 

6318 DATA 11,188,232,184,68,74,212,197 

,150,68,54,43,92,116,64,62,9789 

6328 DATA 39,48,39,38,46,58,58,68,65,6 

7,51,52,52,52,52,64,3788 

6330 DATA 58,255,254,253,159,158,157,1 

56,155,127,126,125,31,38,29,28,11 

6348 DATA 27,68,49,58,42,46,42,155,68, 

49,58,32,32,32,32,32,2882 

6358 DATA 32,32,32,32,32,32,32,155,37, 

114, 114, 111, 114, 69, 114, 114, 8527 

6360 DATA 111,114,37,114,114,111,114,2 

6,0,8,8,8,48,114,181,115,5883 

6378 DATA 115,8,97,8.107,101,121,38,10 
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5,168,101,26,8,8,0,6,2516 

6388 DATA 6,8,8,8,6,8,8,8,8,0,8,8,8,38 

,114,161,238 

6396 DATA 181,26,58,181,99,97,188,99,2 

6,47,38,38,8,6,8,6,1368 

6488 DATA 6,8,6,8,6,8,8,8,8,6,98,121,2 

6,56,47,55,1553 

6416 DATA 6,8,8,47,38,38,47,46,6,56,47 

,55,6,8,8,35,9958 

6428 DATA 47,44,53,45,46,8,8,8,74,71,1 

84,72,188,229,248,244,4558 

6436 DATA 128,128,128,128,174,245,237, 

226,229,242,128,128,166,245,238,227,37 

32 

6448 DATA 244,233,239,238,128,128,128, 

128,128,128,128,128,36,37,44,37,9761 

6458 DATA 52,37,26,6,48,111,115,185,11 

6,185,111,116,8,35,117,114,7989 

6468 DATA 115,111,114,12,8,58,37,52,53 

,58,46,155,35,47,48,57,4258 

6478 DATA 26,8,48,111,115,185,116,165, 

111,116,8,35,117,114,115,111,9678 

6488 DATA 114,12,8,58,37,52,53,58,46,1 

55,45,47,54,37,26,8,2719 

6498 DATA 48,111,115,185,116,185,111,1 

18,6,35,117,114,115,111,114,12,8348 

6588 DATA 8,56,37,52,53,58,46,155,53,1 

12, 112, 181, 114, 8, 168, 161, 7885 

6518 DATA 182,116,8,111,182,8,34,188,1 

11,99,187,155,44,111,119,161,9453 

6528 DATA 114,8,114,165,183,164,116,8, 

111,182,8,34,168,111,99,167,7929 

6538 DATA 155,53,112,112,161,114,6,168 

,181,162,116,8,111,162,8,36,6288 



6548 DATA 161,115,116,14,155,48,58,41, 

46,52,26,6,48,111,115,165,5819 

6558 DATA 116,165,111,116,8,35,117,114 

,115,111,114,12,8,56,37,52,5228 

6568 DATA 53,56,46,155,44,41,51,52,26, 

6,48,111,115,185,116,185,7189 

6578 DATA 111,118,8,35,117,114,115,111 

,114,12,6,58,37,52,53,58,4553 

6588 DATA 46,155,38,47,58,45,33,52,8,6 

,8,42,117,115,116,185,5468 

6598 DATA 182,121,6,44,36,111,168,188, 

97,114,6,4,8,36,9,6,2386 

6668 DATA 46,35,111,189,189,97,115,6,6 

,8,12,9,8,46,36,161,2537 

6618 DATA 99,14,8,112,168,97,99,161,11 

5,8,16,46,57,44,56,35,4238 

6628 DATA 16,17,18,19,28,21,22,23,24,2 

5,8,48,18,38,185,168,2379 

6638 DATA 181,6,181,128,185,115,116,11 

5,12,6,56,181,112,168,97,99,8338 

6648 DATA 181,31,0,57,15,46,155,56,31, 

38,26,24,29,27,51,53,2388 

6658 DATA 48,0,0,0,0,0,155,28,29,30,31 

,187,72,187,72,0,5787 

6668 DATA 53,73,86,73,11,2,26,65,66,67 

,0,26,52,48,49,56,2595 

6676 DATA 51,52,53,54,55,56,57,6,18,28 

,38,48,56,68,76,88,3138 

6688 DATA 98,94,42,47,43,45,179,74,286 

,74,64,1,0,0,0,0,2858 

6698 DATA 64,2,8,6,6,8,63,88,8,0,0,6,3 

3,33,16,17,9242 

6788 DATA 226,2,227,2,144,37,8,8,6,8,8 

,8,8,8,8,8,8561 
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Biee 
•lie 
•12a 

■ 138 
6146 
6158 

• 168 

• 178 

• 188 

• 198 

• 288 

• 218 

• 228 

• 238 

• 248 
8258 
8268 

• 278 

• 288 
8298 

• 388 
8318 
8328 
8338 

• 348 

• 358 
8368 
8378 
8388 
83)8 
8488 

• 418 

• 428 

• 438 

• 448 
8458 

• 468 
•478 
•488 
8498 
8588 
8518 
■ 528 
8538 
8548 
8558 

• 568 
8578 
8588 
8598 
8688 
8618 
8628 
8638 
8648 
8658 
8668 
8678 
8688 
8698 
8788 
8718 
8728 

• 738 

• 748 

• 758 
6766 

• 778 
8788 
8798 
8888 
8818 
8828 
8638 
8848 
8856 

• 868 

• 878 



;SOUE«tD:BC<ILC.PTl 
• OPT NO LIST 
«= • 
pass .= PA55*1 

.IF PA5S=1 

.INCLUDE ttD:BC0LC.PT2 

.ENOIF 

sjVTk ( res X in X5AV 

.MACRO CLOSE 
LDX B <X1»16 
J5H CLOSE 
.ENDM 

' .OPT NO LIST 
*= $2886 

SCHEH .DS 48*28 

TXTWIN .DS 168 

BF1 .DS 586 

BF2 .DS $88 

STRING .DS $88 

MDLST .BYTE $78, $78, $58, $42 
.WORD SCMEM 
.BYTE $98,2,2,2,2,2,2 
.BYTE 2,2,2,2,2,2,2,2 
.BYTE 2, 2, 2, 2, 2, $98, $42 

UFLP .WORD TXTHIN 

.BYTE 2, 2, 2, $41 
WORD MDLST 



;tH3 
DLI PHA 
TXA 



PHA 

LDX DLIX 

LDA DLIC.X 

STA HSYNC. 

5TA C0LPF2 

INC DLIX 

PLA 

TAX 

PLA 

RTI 



DLIX 
DLIC 



.BYTE 8 
.BYTE $82, $88 



: I'I1H.11 
VBI LDA tie 

STA DLIX 

LDX 04 
VBI LDA COLORS, X 

STA C0LPF8.X 

DEX 

BPL VBI 

JM P SYSVBV 

BEGIN JSR IXIT 
JSR CLRSCN 
JSR DRAWH 
JSR SCRV 
JSR CLRTXT 
LDA II > MDLST 
STA SDLSTL+1 
LDA a <MDLST 
STA SDL5TL 
LDA B <5CMEM 
STA L 

LDA t) >SCMEM 
STA L+l 
LDA a >CREDTF 
LDX B <CREDTF 
LDY ne 
JSR DPRINT 
JSR GNKEY 
LDA a >CREDIT 
LDX X <CREDIT 
LDY KB 
JSR DPRINT 



8888 JSR IVCRS 

8896 BFLP J5R CLRTXT 

8986 JSR SHHREF 

8918 HINP JSR CLRSTR 

8928 LDA CONSOL 

8938 CMP DS JSCl 

•948 BNE TOPT 

•956 JMP COHMODE 

•968 TOPT CMP S3 

•978 BNE TKEY 

8986 JSR SHOUST 

•998 JMP BFLP 

1868 TKEY LDA CH 

1818 CMP B$FF 

1626 BEO HINP 

1838 JSR GKEY 

1848 LDX 1116 

1858 STA DM8 

1868 AND «$7F 

1878 T5KY CMP SPCKEY.X 

1888 BEQ SPCAL 

1898 DEX 

1188 BPL TSKY 

1118 LDA DM8 

1128 JSR INPUT 

1138 BCS BFLP 

1148 JMP GTIN 

1158 SPCAL LDA SPECL.X 

1168 STA SPJMP+1 

1178 LDA SPECH.X 

1188 STA 5PJMP+2 

1198 LDA 8$FF 

1288 STA CH 

1218 SPJMP JSR $FFFF 

1228 JSR SHHT2 

1238 JMP BFLP 

1248 GTIN LDA STRING 

1258 CMP UEOL 

1268 BNE GTN1 

1278 JSR SHOCEL 

1288 JMP HINP 

1298 GTN1 LDA STR 



1388 


BEO 


HINP 


1318 


LDA 


FRCTXT 


1328 


BNE 


TRYTX 


1338 


LDA 


STRING 


1348 


CMP 


»' = 


1358 


BEO 


AFNN 


1368 


CMP 


8-B 


1378 


BEO 


AFNN 


1388 


JMP 


TRYNU 


1398 


AFNN LDA STR 


1488 


STA 


5TR2 


1418 


JSR 


L02UP 


1428 


JSR 


TRYFNC 


1438 


BCC 


HOOK 


1448 


LDA 


tt$B2 J 


1458 


BNE 


FHOK 


1468 


HOOK LDA 02 


1478 


FHOK STA DTYP 


1488 


LDA 


STR2 


1498 


STA 


STR 


1588 


CLC 




1518 


ADC 


» <STRING 


1528 


STA 


FLPTR 


1538 


LDA 


» >STRING 


1548 


ADC 


ne 


1558 


STA 


FLPTRtl 


1568 


LDX 


ne 


1578 


JSR 


FST8P 


1588 


LDA 


STR 


1598 


CLC 




1688 


ADC 


06 


1618 


STA 


STR 


1628 


TAX 




1638 


LDB 


BEOL 


1648 


STA 


STRING, X 


1658 


JSR 


INSERT 



1668 


JSR CLRSTR 




1676 


LDX BF2+1 




1686 


JSR 5TFLPTR 




1690 


JSR FLD8P 




1788 


JSR NM2STR 




1718 


JMP GTR 




1728 


TRYNU CMP »■- 


-,.,■-» 


1738 


BCC TRYTX 




1748 


BNE HI 




1758 


LDA STRING+1 


jnx chr B? 


1768 


CMP »■ ■■ 




177B 


BCS TRYTX 




1788 


CMP »■/ 




1798 


BEQ TRYTX 




1806 


CMP B' . 




1818 


BCC TRYTX 




1820 


HI CMP »7 




1838 


BEO TRYTX 




1648 


CMP n'l 




1858 


BCS TRYTX 




1868 


JSR SBNUM 




1878 


JMP GTR 




1888 


TRYTX LDA B8 




1898 


STA DTYP 




1968 


STA FRCTXT 




1918 


JSR INSERT 




1928 


GTR LDA CRSY 




1938 


STA VCNT 




1948 


LDA SHOW 




1958 


JSR REFROH 




1968 


JSR IVCRS 




1978 


LDA DTYP 




198b 


JSR SHHTYP 




1998 


LDA ONF 




2868 


BEO NORC 




2818 


JSR RECALC 




2828 


NORC LDA CDIR 




2838 


BEO NOCRS 




2848 


JSR MVCRS 




2058 


NOCRS JMP BFLP 




2868 


jlSM'MMrtiW'll 




2878 


MVCRS CMP B51F 




2888 


BEQ CR 




2898 


JMP CLA 




2188 


CR LDY SCOL 




2118 


CPY B63 




2128 


BCS NORT 




2138 


LDA CRSEN 




2148 


CLC 




2158 


ADC C0LN+1,Y 




2168 


CMP B41 




2178 


BCS SCRRT 




2188 


PHA 




2198 


LDA CRSEN 




2288 


STA CRSX 




2218 


PLA 




2228 


STA CRSEN 




2238 


INC SCOL 




2248 


LDA CURRH 




2258 


STA VCNT 




2268 


LDA SROM 




2278 


JSR REFROH 




2268 


EXC1 JSR IVCRS 




2298 


LDY SCOL 




2388 


LDA FHCOL.Y 




2318 


STA FORMAT 




2328 


NORT RTS 




2338 


SCRRT INC SCOL 




2348 


LDA 112 


I find 1st col 


2358 


LDY SCOL 




2368 


FFLP CLC 




2378 


ADC COLH.Y 




2388 


CMP B4B 




2398 


BCS FNF 




2488 


DEY 




2418 


JMP FFLP 




2428 


FNF INY 




2438 


STY FCOL 
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2448 JSR DRftWH 

2456 JSR REFSCR 

2468 jfind st/end of cursor 

2478 LDA 82 

2488 LDY FCOL 

24)8 CPY SCOL 

2588 BEO FSF 

2518 FSE CLC 

2528 ADC COLH.Y 

2538 INY 

2548 CPY SCOL 

2558 SHE FSE 

2568 FSF STA CRSX 

2578 CLC 

2588 ADC COLH.V 

2598 STA CRSEN 

2688 LDA SCOL 

2618 CMP 063 

2628 BNE FFJ 

2638 LDA CRSX 

2648 CLC 

2658 ADC COLH+63 

2668 STA CRSEN 

2678 FFJJHP EXC1 

2688 ;EEH3 

26)8 CLA CMP a$lE 

2788 BNE CUA 

2718 CL LDA CRSX 

2728 CMP H2 

2738 BNE PA 

2748 LDA FCOL 

2758 BNE SCRLL 

2768 RTS 

2778 PA DEC SCOL 

2788 LDA CURRH 

2799 STA VCNT 

2888 LDA SROH 

2818 JSR REFROH 

2828 LDA CRSX 

2638 PHA 

2848 SEC 

2858 LDY SCOL 

2868 SBC COLH.Y 

2878 STA CRSX 

2888 PLA 

2898 STA CRSEN 

2988 JMP EXC1 

2918 SCRLL DEC SCOL 

2928 LDA SCOL 

2938 STA FCOL 

2948 JSR DRAHH 

2958 JSR REFSCR 

2968 LDA »2 

2978 STA CRSX 

2988 LDY FCOL 

2998 CLC 

leee adc colh.y 

3818 STA CRSEN 

1828 JMP EXC1 

3838 ;sra 

3848 CUA CMP H$1C 

isse BNE CDJ 

3868 CU LDA CURRH 

3878 BNE R3 

3888 LDA FROM 

3898 BNE R4 

3188 RTS 

3118 R3 JSR IVCRS 

3128 DEC CURRM 

3138 DEC CRSY 

3148 DEC SROH 

3158 JMP IVCRS 

3168 R4 JSR IVCRS 

3178 DEC FROM 

3188 DEC SROH 

3198 ; 

3288 LDA it < [SCMEM+72BJ 

3218 STA JL 

3228 LDA tt > [5CMEM+728J 

3238 STA JL + 1 

3248 LDA tt <[SCMEM+768] 

3258 STA L 

3268 LDA tt >tSCMEM+768] 

3278 STA L + l 

3288 LDX 1116 

3298 HUAG JSR HOVSCN 

3388 SEC 

3318 SBC 1MB 

3328 STA JL 

3338 LDA JL + 1 

3348 SBC tt8 

3358 STA JL+1 

3368 DEX 

3378 BPL HUAG 

3388 ; 

3398 LDX 039 

3488 LDA MO 

3418 UU STA SCHEM+88.X 

3428 DEX 

3438 BPL UU 

3448 STA VCNT 

3458 LDA tt2 

3468 STA SPX 

3478 LDA FROU 

3488 JSR REFROH 

3498 JSR DRCOL 

3588 JMP IVCRS 

3518 CDJ CMP ttSID : KTWn 

3528 BEO CD 

3538 RTS 

3548 CD LDA FROM 

3558 CLC 

3568 ADC CURRH 

3578 CMP 863 

3588 BCC Rl 

3598 RTS 

3688 Rl LDA CURRH 

3618 CMP ttl7 

3628 BCS R2 

3638 JSR IVCRS 

3648 INC CURRH 

3658 INC CRSY 

3668 INC SROH 

3678 JMP IVCRS 

3688 R2 JSR IVCRS 

3698 INC FROH 

3788 INC SROH 

3718 I 

3728 LDA tt <[SCMEH+128] 

3738 STA JL 

3748 LDA tt > [SCMEM+12B] 

3758 STA JL+1 

3768 LDA tt <CSCMEH+88] 

3778 STA L 

3788 LDA tt > [SCMEM+86] 

3798 STA L+l 

3888 LDX ttl6 

3818 MDAG JSR MOVSCN 



3828 CLC 

1838 ADC tt48 

3848 STA JL 

1858 LDA JL+1 

1868 ADC tta 

1878 STA JL+1 

3888 DEX 

1898 BPL MDAG 

3988 LDA 86 

3918 LDX 839 

3928 DDZ STA SCMEM+768,X 

3938 DEX 

3948 BPL DDZ 

3958 LDA tt2 

3968 STA SPX 

3978 LDA 817 

3988 STA VCNT 

1998 CLC 

4888 ADC FROH 

4818 JSR REFROH 

4828 JSR DRCOL 

4838 JMP I VCRS 

4848 ; mafcUjU 

4858 MOVSCN LDY It39 

4868 MS2 LDA CJLJ , Y 

4878 STA CL),Y 

4888 DEY 

4898 BPL HS2 

4180 LDA JL+1 

4118 STA L+l 

4128 LDA JL 

4138 STA L 

4148 RTS 

4158 ;HTJEE 

4168 CLOSE STX XSAV 
4178 LDA ttl2 
4188 STA ICCOM.X 
4198 JSR CIOU 
4288 LDX XSAV 
4218 RTS 
4228 : f.l.H;BM4 l IJJil 
4238 SCRV JSR DRCOL 
4248 JMP CLEAR 
4258 SCRH JSR DRAHH 
4268 CLEAR JSR CLRSCN 

4278 RTS 

4288 !l -]JI,VH-l* l't-IWHiJ|H 

4298 DPRINT STA IL+1^^ 

4388 STX IL 

4318 DOP LDA CIL1 , Y 

4328 CMP ttEOL 

4338 BEO ENDP 

4348 STA CL),Y 

4358 INY 

4368 BNE DOP 

4378 E NDP RTS 

4388 imxaanE 

4398 DRCOL LDY ttO 

4488 STY VCNT 

4418 LDA FR8H 

4428 STA BCD1 

4438 INC BCD1 

4448 FG LDA BCD1 

4458 LDX tte 

4468 FE CMP ttlB 

4478 BCC FF 

4488 SEC 

4498 SBC BIB 

4588 INK 

4518 BNE FE 

4528 FF PHA 

4538 TXA 

4548 PHA 

4558 LDY VCNT 

4568 LDA Y48L.Y 

4578 STA L 

4588 LDA Y40H.Y 

4598 STA L+l 

4688 PLA 

4618 ORA ttS90 

4628 LDY tie 

4638 STA (L),Y 

4648 PLA 

4658 INY 

4668 ORA tt$98 

4678 STA CL>,Y 

4688 INC BCD1 

4698 INC VCNT 

4788 LDA VCNT 

4718 CMP ttlS 

4728 BNE FG 

4738 RTS 

4748 l llilimi 

4758 1NIT CLD 

4768 LDA t» <[SCHEH+88] 

4778 STA Y48L 

4768 STA L 

4798 LDA It > [SCHEH+88] 

4888 STA Y48H 

4818 STA L+l 

4828 LDY ttl 

4838 II LDA L 

4848 CLC 

4858 ADC 848 

4868 STA L 

4878 STA Y48L,Y 

4888 LDA L+l 

4898 ADC tte 

4988 STA L+l 

4918 STA Y48H,Y 

4920 INY 

4936 CPY 1118 

4948 BNE II 

4958 i 

4968 LDA tt <DLI 

4978 STA VDSLST 

4986 LDA tt >DLI 

4990 STA VDSLST+1 

5888 LDA 112 

5818 STA C0L0R4 

5828 LDA ttB 

5838 STA CBL0R2 

5848 LDA ttlB 

5858 STA C8L0R1 

5868 LDA 86 

5878 LDX It >VBI 

5888 LDY It <VBI 

5898 JSR SETVBV 

5188 LDA ttSCB 

5118 STA NHIEN 

5128 ; 

5138 LDY 1163 

5148 IJ LDA MS 

5158 STA COLH.Y 

5168 LDA 8$28 

5178 STA FMCOL.Y 

5188 DEY 

5198 BPL IJ 



5288 STA FORMAT 
5218 LDA ttB 
5228 STA SPFLG 
5238 LDX »SD1 
5248 ZPLP STA S08.H 
5258 DEX 
5268 BHI ZPLP 
5278 STA CRSY 
5288 STA RCFLG 
5298 STA BNF 
5388 LDA tt2 
5318 STA CRSX 
5328 CLC 
5338 ADC COLH 

5348 5TA CRSEN 

5358 :IIH'ITI 
5368 LDA $79 
5378 ORA $7A 
5388 BEO BUZZ 
5398 LDA $79 
5468 STA GTV+1 
5418 LDA «7A 
5428 STA GTV+2 
5438 I 

5449 BUZZ LDA lt$7F 
5456 TAY 
5460 TAX 
5476 KLP TXA 
5488 STA AIT.Y 
5498 COR tt$8B 
5588 STA AIT+$8B,Y 
5518 DEX 
5528 DEY 
5538 BMI KD 
5548 CPY »$5F 
5558 BNE KCA 
5566 LDX 8S3F 
5578 BNE KLP 
5588 KCA CPY 8S1F 
5598 BNE KLP 
5688 LDX «S5F 
5618 BNE K LP 
5628 ;HTiMH3D 

5638 KD LDA tt <R01 

5640 STA L 

5658 LDA tt >R01 

5668 STA L+l 

5678 LDY 88 

5688 CET LDA L 

5698 STA RAD.Y 

5788 LDA L+l 

5718 INY 

5728 STA RAD.Y 

5736 LDA L 

5748 CLC 

5758 ADC 81 

5768 STA L 

5778 LDA L+l 

5788 ADC 86 

5798 STA L+l 

5888 INY 

5818 CPY 8*88 

5828 BNE CET 

5838 LDY 863 

5848 LDA 8$FF 

5858 CES STA R01.Y 

5868 DEY 

5878 BPL CES 

5888 LDA 8 <ENPROG 

5896 STA ENDAT 

5988 LDA 8 >ENPR8G 

5918 STA ENDAT+1 

5928 : H J»* l »M J fi ;r . l .M.-«:IH 

5938 LDA 8 <FPSTACK 

5948 STA L 

5958 STA STLO 

5968 LDA 8 >FPSTACK 

5978 STA L+l 

5988 STA 5THI 

5998 LDY 81 

6888 FPZ LDA L 

6818 CLC 

6820 ADC 86 

6838 STA L 

6848 STA STLO.Y 

6858 LDA L+l 

6860 ADC 86 

6878 STA L+l 

6888 STA STHI.Y 

6896 INY 

6106 CPY 857 

6118 BNE FPZ 

6126 RTS 

6138 ;ESEMXQ 

6148 DRAHH LDA 8 <[SCMEH+481 

6158 STA L 

6168 LDA 8 > CSCHEH+48] 

617B STA L+l 

6180 LDY 839 

6198 DH LDA 8$8B 

6200 STA ILI.Y 

6218 DEY 

6228 BPL DH 

6238 ; 

6248 LDA 82 

6258 STA TM 

6268 LDA FCOL 

6278 STA TM1 

6280 COA LDY TH1 

6298 CPY 864 

6368 BEO CDO 

6318 LDA COLH.V 

6328 PHA 

6338 LSR A 

6348 CLC 

6358 ADC TM 

6368 STA TH3 

6378 DEC TMX 

6388 PLA 

6398 CLC 

648B ADC TM 

6418 STA TM2 

642B CMP 841 

6438 BCC COK 

6448 CDO RTS 

6458 COK LDA 833 

6468 STA TH4 

6478 LDA TM1 

6488 CMP 826 

6498 BCC T2 

6588 INC TH4 

6518 SEC 

6528 SBC 826 

6538 CMP 826 

6548 BCC T2 

6558 INC TM4 

6568 SEC 

6578 SBC 826 



M 
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6588 


T2 PHA 


6598 


LDY TM3 


6688 


LDA TH4 


6618 


EOR 8588 


6628 


STA CLJ.Y 


6638 


PL* 


6648 


CLC 


6658 


ADC Jt$21 


6668 


EOR US88 


6678 


INV 


6688 


STA (L),Y 


6678 


INC TH1 


6788 


LDA TM2 


6718 


STA TM 


6728 


JMP COA 


6738 




6748 


IVSSS J™ LOCCRS 


6758 


LDY CRSEN 


6768 


DEY 


6778 


TVS LDA (L),Y 


6788 


EOR esse 


6758 


STA (L),Y 


6888 


DEY 


6818 


CPV CRSX 


6828 


BPL IVS 


6838 


LDY 5C0L 


6848 


LDA FMCOL.Y 
STA FORMAT 


6858 


6868 


JSR SHWCRI 


6878 


RT5 


6868 


;lf1irB4iH'lil 


6858 


LOCCRS LDY CRSY 


6588 


LDA Y48L.Y 


6518 


STA L 


6528 


LDA Y48H.Y 


6538 


STA L+l 


6548 


RTS 


6558 


jmaaj 


6568 


CLRTXT LDY US 


6578 


TYA 


6588 


CT STA TXTHIN.Y 


6558 


INY 


7888 


CPY aise 


7818 


BNE CT 


7828 


LDA 8SB9 


7838 


STA TXTHIN+2 


7848 


RTS 


7858 
7868 


SNKEV JSR GKEY 


7878 


LDX HSFF 


7888 


STX CH 


7858 


RTS 


7188 


jfcliMJUi'J 


7118 


GKEY LDA CH 


7128 


CMP B$FF 


7138 


BEQ GKEY 


7148 


STA OLDC 


7158 


KB TAY 


7168 


cpy n$ca 


7178 


BCC GTV 


7188 


LDY 8*9A 



7158 GTV LDA *FEFE,Y 

7288 STA OLDAC 

7218 KGB CMP »$82 

7228 BNE KII 

7238 KIM LDA CAPS 

7248 EOR 8548 

7258 STA CAPS 

7268 KIJ LDA 8SFF 

7278 STA CH 

7288 BNE GKEY 

7258 KII CMP 8$B1 



;invrs 



7388 




BNE 


K3 


7318 




LDA 


INVFLG 


7328 




EOR 


8$88 


7338 




STA 


INVFLG 


7348 




JMP 


KIJ 


7358 


K3 


CMP 


8583 ; Shi ft 


7368 




BEQ 


KIM 


7378 




CMP 


8584 {control 


7388 




BEQ 


GKEY 


7358 




CMP 


8$85 


7488 




BED 


GKEY 


7418 




LDA 


OLDC 


7428 




CMP 


8548 


7438 




BCS 


K6 


7448 




LDA 


OLDAC 


7458 




CMP 


857 


7468 




BCC 


K6 


7478 




CMP 


8123 


7488 




BCS 


K6 


7458 




LDA 


CAPS 


7588 




BEQ 


K6 


7518 




ORA 


OLDC 


7528 




JMP 


K8 


7538 


K6 


LDA 


OLDAC 


7S48 




LDX 


815 


7558 


KCMP 1 


7568 




BEQ 


KOUT 


7578 




DEX 




7588 




BPL 


KCMP 


7558 




EOR 


INVFLG 


7688 


KOUT 1 


7618 
7628 


iUIHJb'JJIjJJ 

LIN1LDY 81 



7638 BNE TPS 
7648 LIN2 LDY 82 
7658 BNE TPS 
7668 LIN3 LDY 83 
7678 TPS LDA TUINL.Y 
7688 STA L 
7658 LDA TWINH,Y 
7788 STA L+l 
7718 LDY 81 
7728 RTS 

7738 jGnaGOESOT 

7748 MERR LDY 82 



7758 
7768 
7778 
7788 
7758 
7886 
7818 
7828 
7838 
7848 
7858 
7868 
7878 
7888 
7858 
7588 
7518 
7528 
7538 
7548 
7558 



JSR DSKERR 
JMP HOME 

: ILM'14I| 3 

HOVUP LDA ENDAT 
STA MFR + 1 
CLC 

ADC LENG 
STA MTO + l 
LDA EHDAT+1 
STA MFR + 2 
ADC 88 
STA MTO+2 
CMP 186 
BCS MERR 
LDA ENDAT 
SEC 

SBC LL 
STA NBYT 
LDA ENDAT+1 
SBC LLH 
STA NBYT+1 



7568 




LDA 


ENDAT 




7578 




CLC 






7588 




ADC 


LENG 




7598 




STA 


ENDAT 




eeee 




LDA 


ENDAT+1 




8818 




ADC 


88 




8828 




STA 


ENDAT+1 




8838 HAG 


JSR 


HFR 




S848 




BCC 


HM1 




8858 




RTS 






8868 HH1 


DEC 


MFR+1 




8878 




LDA 


MFR + 1 




8888 




CMP 


8$FF 




6858 




BNE 


MS 




8188 




DEC 


MFR+2 




8118 MS 


DEC 


MTO+1 




8128 




LDA 


MTO+1 




8138 




CMP 


8$FF 




8148 




BNE 


MT 




B158 




DEC 


MTO+2 




8168 HT 


JMP 


HAG 




8178 HFR 


LDA 


JFFFF 




8188 MTO 


STA 


5FFFF 




8158 MO 


DEC 


NBYT 




8288 




LDA 


NBYT 




8218 




CMP 


8SFF 




8228 




BNE 


CNR 




8238 




DEC 


NBYT+1 




8248 




LDA 


NBYT+1 




8258 




CMP 


8$FF 




8268 




BNE 


CNR 




8278 




SEC 






6289 




RTS 






8258 CNR 


CLC 






8388 




RTS 






8319 ) 


IfellLI 




8328 MOVDH LDA LL 




8338 




STA 


MTO+1 




8348 




CLC 






8358 




ADC 


LENG 




8368 




STA 


MFR+1 




8378 




LDA 


LL+1 




8388 




STA 


MTO + 2 




8358 




ADC 


88 




6488 




STA 


MFR+2 




8418 




LDA 


ENDAT 




8428 




SEC 






8438 




SBC 


MFR+1 




8448 




STA 


NBYT 




8458 




LDA 


ENDAT+1 




8468 




SBC 


MFR + 2 




8478 




STA 


NBYT+1 




8488 




LDA 


ENDAT 




8458 




SEC 






8588 




SBC 


LENG 




8518 




STA 


ENDAT 




8528 




LDA 


ENDAT+1 




8538 




SBC 


88 




8548 




STA 


ENDAT+1 




8558 DD1 


JSR 


HFR 




8568 




BCC 


DD4 




8578 




RTS 






8588 DD4 


INC 


MFR+1 




8558 




BNE 


DD2 




8688 




INC 


HFR+2 




8618 DD2 


INC 


HTO+1 




8628 




BNE 


DD3 




8638 




INC 


HTO+2 




8648 DD3 


JMP 


DD1 




8658 i 


FXETT3 






8668 AS2IC STX XSAV 




8678 




TAX 






6688 




LDA 


AIT.X 




8658 




LDX 


XSAV 




8788 




RTS 






8718 ; 


in 


serti 






8728 J 


b«8 =col 8 bUl : 


for Milt 


8738 ) 


b82 = length b83 


= ts»p 


8748 ; 
8758 I 


tu 


pes:0=text l b 


n 2= 


MSERT LDA SCOL 




8768 




STA 


COLNU 




8778 




LDA 


FROM 




8788 




CLC 






8758 




ADC 


CURRH 




6898 




STA 


ROHXU 




8818 




ASL 


A 




8828 




TAY 






8838 




LDA 


RAD.Y 




8848 




STA 


LL 




8858 




INY 






8868 




LDA 


RAD.Y 




8878 




STA 


LL+1 




8888 I 


U 


LDY 


88 




8858 




LDA 


CLL) ,Y 




8588 




BPL 


FCEL 




8518 I 


S 


LDA 


STR 




8528 




CLC 






8538 




ADC 


8DTLEN 




8548 




STA 


LENG 




8958 




JSR 


HOVUP 




8566 




LDY 


88 




6578 




LDA 


COLNU 




8588 




STA 


CLLJ.Y 




8598 




LDA 


FORMAT 


forut 


9888 




LDY 


81 




9818 




STA 


CLLJ.Y 




9828 




INY 






9838 




LDA 


STR 




9848 




STA 


CLLJ,Y 




9858 




INY 






9868 




LDA 


88 


flaj2 


9878 




ORA 


DTYP 




9888 




STA 


CLL>,Y 




5898 




JSR 


ADDDT 




9188 




LDY 


88 




9118 


CT 


LDA 


STRING, Y 




9128 




STA 


CLLJ.Y 




9138 




INV 






9148 




CPY 


STR 




9158 




BNE 


IT 




9168 




LDA 


STR 




9178 




CLC 






9188 




ADC 


8DTLEN 




9198 




STA 


LENG 




9288 




LDA 


ROWHLI 




9218 




JSR 


UPRAD 




9228 




RTS 






9238 


EEK1 




9248 


JPRAD 




9258 




TAY 






9268 




INY 






9278 




INY 






9288 




JMP 


IQ 




5298 


[R 


LDA 


RAD.Y 




9388 




CLC 






9318 




ADC 


LENG 




9328 




STA 


RAD.Y 




9338 




INY 







9348 


LDA RAD.Y 




9358 


ADC 88 




9368 


STA RAD.Y 




9378 


INY 




9388 IQ 


CPY 8588 




9398 


BNE IR 




9488 


RTS 




9418 FCEL CMP COLNU 




9428 


BNE NOD 




9438 


LDA ROHXU 


;4 del 


9448 


JSR DELTCL 




9458 


SEC 


j fall thru 


9468 NOD BCS IS 




9478 


LDY 82 




9488 


LDA CLLJ.Y 




9498 


CLC 




9588 


ADC LL 




9518 


STA LL 




9528 


LDA LL+1 




9538 


ADC 88 




9548 


STA LL+1 




9558 


JSR ADDDT 




9568 


JMP IU 






9588 DELTCL PHA 




9598 


LDY 82 




9688 


LDA CLLJ.Y 




9618 


CLC 




9628 


ADC 8DTLEN 




9638 


STA LENG 




9648 


JSR MOVDH 




9658 


PLA 




9668 


ASL A 




9678 


TAY 




9688 


INY 




9698 


INY 




9788 


JMP DQ 




9718 DR 


LDA RAD.Y 




9728 


SEC 




9738 


SBC LENG 




9748 


STA RAD.Y 




9758 


INY 




9768 


LDA RAD.Y 




9778 


SBC 89 




9788 


STA RAD.Y 




9798 


INY 




9898 DQ 


CPY 8S89 




9818 


BNE DR 




9828 


RTS 








9848 CLRSCN LDX 817 




9858 CTD JSR CLRLIN 




9868 


DEX 




5878 


BPL CTD 




5888 


RT5 




9B9B iB.IIJa'H.HJ.r. 




9988 CLRLIN LDA Y4BL, 


X 


9918 


STA L 




9928 


LDA Y48H.X 




9938 


STA L+l 




9948 


LDA 88 




9558 


LDY 82 




5568 CSLP STA CLJ.Y 




5978 


INY 




9988 


CPY 848 




5998 


BNE CSLP 




818888 


RTS 




818818 


■.ttt.r.mmmtM 


818828 


LSTCOL LDY FCOL 


818838 


OB CLC 




818848 


ADC COLH.Y 




818858 


CMP 840 




818868 


BCS OA 




818878 


INY 




818888 


BNE OB 




818898 


OA STY TH2 


list col 


818199 


RTS 




819118 


ilJJJ4jyi»<JJJj.l 


818128 


REFSCR LDA 88 


;vert lines 


818138 


STA VCNT 




918148 


LDA FROM 




818159 


STA TH1 


j rows 


818168 


! 




818178 


OH LDA TM1 




918188 


JSR REFROH 




818198 


INC TM1 




818288 


INC VCNT 




819219 


LDA VCNT 




818229 


CMP 818 




818239 


BNE OH 




818248 


RTS 


j done 


818258 


:H1*:I:IJ 




818269 


STRAD ASL A 




619279 


TAY 




616280 


LDA RAD.Y 




•18298 


STA LL 




818388 


INY 




610319 


LDA RAD.Y 




818328 


STA LL+1 




818338 


RTS 




818348 




818358 


REFROH PHA 


;save row 


910360 


LDA FCOL 




818378 


STA TM 


; col 


910380 


LDA 82 




919399 


STA SPX 




818488 


JSR LSTCOL 




818419 


LDX VCNT 




818428 


JSR CLRLIN 




818438 


PLA 




•18448 


JSR STRAD 




818458 


VE LDY 88 




818468 


LDA CLLJ.Y 




819479 


CMP 8SFF 




818488 


BEQ VA 


j done w/row 


818498 


CMP TM 




818598 


BEQ VB 


;got col 


•18518 


BCC VC 




•18528 


VD LDY TH 


;next col 


•19538 


LDA COLH.Y 


;scrn pos 


•18548 


CLC 




■18558 


ADC SPX 




818568 


STA SPX 




818578 


INC TH 




818588 


LDA TM 




818598 


CMP TM2 


j last col? 


818688 


BCC VE 




918618 


VA RTS 




818628 


VC JSR UP1C0L 


line n 


610630 


JMP VE 




818649 


VB LDA LL 




819658 


CLC 




818668 


ADC 8DTLEN 




818678 


STA IL 




818688 


LDA LL+1 




818698 


ADC 88 




819799 


STA IL+1 


j keep ll 


818718 


LDY VCNT 
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(5 



(16720 


LDA Y48L,Y 




■18739 


STA JL 




•16748 


LDfl Y4BH.V 




■18756 


STA JL+1 




■18766 


LDfl 5PX 




•16778 


STO TH3 




■16788 


LDY ai 




■16798 


LDfl CLL),Y 




■16868 


STft FORMAT 




■16818 


LDY 83 




■16828 


LDfl CLL>,Y 




•18836 


BPL MNER 




•18848 


JMP MUER 




■18858 


HMER AND 83 




•16868 


BEQ NNH 




816878 


chp m 




■16888 


BEO I5H J a 8 




816896 


LDY »2 ] 8 F 




■18986 


LDfl CLLJ.Y 




•16918 


SEC 




•18928 


SBC 86 




•189X6 


CLC 




•18948 


ADC IL 




•18956 


TAX ;low 




■18966 


LDA IL + 1 




818978 


ADC 88 




■16988 


TflY 




816998 


JHP ISN2 




•11886 


;l;llk«^li»-Hjr 




811816 


NNH JSR CLRSTR 




611828 


LDY 82 




811838 


LDA CLL),Y 




811848 


TAY 




811858 


LDA 8E0L 




811868 


STA STRING, Y 




811678 


DEY 




811888 


YTA LDA CIL1.Y 




811698 


STA STRING, Y 




811168 


DEY 




811116 


BPL YTA 




•11128 


LDA tt <STRING 




611136 


STA IL 




811148 


LDA tl >STRING 




811156 


STA IL+1 




811168 


JSR FRMTXT jresult in 


IL 


■11178 


;IJiL«'l.B--Ha-»il 




•11188 


MHMl LDY TH 




611198 


LDA COLH, Y 




811268 


STA GMX 




811218 


LDY no 




811226 


STY TM4 




611238 


YLP LDY TH4 




•11248 


LDA LBUF,Y 




611258 


JSR AS2IC 




611268 


LDY TM3 




811278 


STA (JL),Y 




811288 


INC TM4 




611298 


INC THI 




811386 


LDA TH4 




811318 


CHP GHX 




811328 


BNE YLP 




811338 


JSR CLRSTR 




•11348 


JMP VD 




611356 


■.UMM-.i-mtmin-w-" 




611366 


I5N LDX IL ;strt of 11 




611378 


LDY IL+1 




611388 


ISN2 JSR FLD8R 




■11398 


JSR SETINB 




•11488 


JSR FASC 




811416 


JSR FRHNUH 




•11428 


JHP NNH1 




•11436 


;lil'i:iH*i 




■11448 


SBNUH LDA ttl 




811458 


STA DTYP 




•11468 


JSR SETFP 




•11476 


JSR ZFRB 




811488 


JSR AFP 




811498 


LDX <STRING 




•11588 


LDY a >STRING 




611516 


JSR FST8R 




611528 


LDA 116 




811538 


STA STR 




811548 


JSR INSERT 




•11558 


RTS 




611568 






•11576 


nuer ldx ae 




•11586 


lda as 




611598 


STA GHX 




611688 


LDY TH 




•11618 


LDA C0LH,Y 




611626 


CHP 84 




811638 
811646 


BNE ADO 
DEC GHX 





811658 ADQ LDY TM3 

811668 ADP LDA ERHES.X 

811678 STA CJL),Y 

611688 INY 

611696 INX 

611786 CPX GHX 

811716 BNE ADP 

811728 JHP VD ;nx Col 

811738 ;hllMiMHE 

811748 SETFP LDA a >STRING 

611756 STA INBUF+1 

■11768 LDA a <STRING 

■11778 STA INBUF 

811788 LDA 88 

•11798 STA CIX 

■11868 RTS 

811818 iBZZ 

611826 SETINB LDA 8 >LBUF 

611838 STA INBUF+1 

•11846 LDA 8 <LBUF 

•11856 STA INBUF 

•11868 LDA 88 

811878 STA CIX 

611688 RTS 

811896 | H 

•11968 NH2STR JSR SETINB 

•11918 JSR FASC 

■ 11928 LDY 88 

■11938 NLP LDA (INBUF) , Y 

611946 BMI NLZ 

811956 STA STRING, Y 

■11966 INY 

■11976 BNE NLP 

811988 NL2 AND tt$7F 

811998 STA STRING, V 

812686 INY 

612818 STY STR 

■12826 CPY 81 

■12838 BEO NRT 

812848 LDA STRING 

812656 CMP 11'9 

812866 BNE NRT 

•12876 LDY 86 

612888 NL3 LDA STRING+l.Y 

■12898 STA STRING, V 



812188 
812118 
812128 
812136 
812146 
812156 
812166 
612176 
812188 
812198 
812288 
812218 
812228 
812238 
812248 
•12256 
812266 
612278 
■12288 
812298 
812388 
612318 
•12328 
612338 
812348 
812356 
612366 
612378 
812388 
812399 
612488 
•12418 
•12426 
•12438 
•12446 
•12456 



INY 

CPY STR 
BNE NL3 
DEC STR 
NRT RTS 



do spec ctrl cuds 
clear STRING for FP 



CLRbTH LDK C57F 

LDA 11528 
CSTL STA STRING, X 

DEX 

BPL CSTL 

RTS 

^■MiHJiKnimUUJjKfTJS 

L02UP LDY 88 
L0LP LDA STRING, Y 

CMP ttEOL 

BEQ LODON 

AND 8$7F 

CMP 8'Z+l 

BCS NLO 

CHP U'a 

BCC NLO 

EOR 8$2S 
NLO STA STRING, Y 

INY 

BNE LOLP 
LODON RTS 

.INCLUDE 8DIBCALC.PT3 

.INCLUDE 8D:BCALC.PT4 

.INCLUDE 8D:BCflLC.PT5 

.INCLUDE 8DIBCALC.PT6 
ENPROG S * 

«= RUNAD 

.HORD BEGIN 

■ END 



LISTING 3: ASSEMBLY 



8188 


,'SAUE8D:BCEQU 


8118 


j 




8126 


CIOV = 


$E4S6 


6138 


ICCOH : 


: $9342 


• 148 


ICBAL : 


: $9344 


8158 


ICBAH : 


: $6345 


8168 


ICBLL : 


: $6348 


8176 


ICBLH : 


: $8349 


8188 


AUX1 = 


$834(1 


6198 


AUX2 S 


$634B 


6286 


RUNAD : 


: $82EB 


6218 


INITflD 


= $62E2 


8226 


• 




8236 


SDLSTL 


B $8238 


8248 


5DMCTL 


S $822F 


8258 


VDSLST 


- $8266 


6266 


HMIEN : 


: $D46E 


6276 


HSVNC : 


: $D48A 


8288 


SETVBU 


= $E45C 


6296 


SY5UBV 


= SE4SF 


8368 


COLORS 


= $82C4 


8316 


C0L0R1 


= $82C5 


6328 


C0L0R2 


= $82C6 


8338 


C0L0R4 


S $82CS 


8348 


C0LPF8 


- $D616 


8358 


C0LPF2 


S $D81S 


6368 


KEYDEF 


= $79 


6376 


INUFLG 


S $82B6 


6386 







$F3 

$D4 

$E6 

$FC 

$8586 

$D888 

$D8E6 

$D9AA 

$DA44 

$Dfl46 

$Dfl68 

$DA66 

$DADB 

$DB28 



$D81F 
$82FC 
$9B 



8398 CIX 

8488 INBUF 

8418 FR8 - 

8428 FR1 S 

8438 FLPTR 

8446 LBUF - 

6456 AFP = 

6466 FASC S 

8478 IFP = 

■488 ZFRB a 

■498 ZF1 = 

■588 FSUB S 

•518 FADD = 

8528 FHUL X 

•538 FDIU = 

6546 FST6R = $DDA7 

6556 FST8P S $DDAB 

8568 FLD8R - $DD89 

6578 FLD1R = $DD98 

8588 FLD6P = $DD8D 

6598 FLD1P X $DD9C 

8668 FMOUE = $DDB6 

8618 EXP18 = $DDCC 

6626 L0G18 S $DED1 

8638 ; 

8648 CONSOL 

8656 CH S 

6668 EOL = 

6676 DOSVEC = $6A 

■688 RAHTOP = $6A 

■698 SEOL s $BB 

8766 CAPS = $62BE 

8716 DTLEN s 4 

8728 NUMB S *65S8 

6738 j 

6748 jUn^jjjH 

8756 «= fai 
•768 L ,DS 2 
6778 LL ,DS 2 
■788 IL ,DS 2 
8798 JL ,DS 2 
8888 FPLO ,DS 2 
8618 TM .DS 1 
8828 TM1 .DS 1 
6836 TH2 .DS 1 
6848 TH3 .DS 1 
8858 TM4 ,DS 1 
8868 FCOL .DS 1 
8676 FORMAT .DS 1 
6886 UCNT .DS 1 
8898 CRSX .DS 1 
8988 CRSY .DS 1 
■918 XPOS .DS 1 
■928 GMX .DS 1 
■936 COLNU .DS 1 
■948 ROHNU .DS 1 
8958 NBYT . DS 2 
6966 LENG .DS 1 
6978 SCOL .DS 1 
8988 FROH .DS 1 
6996 CURRH . DS 1 
1886 SROH .DS 1 
1618 COLF .DS 1 



jdata length 



1846 


COLZ .DS 1 


1658 


ROMF .DS 1 


1668 


ROMS .DS 1 


1878 


ROMT .DS 1 


1888 


ROHZ .DS 1 


1898 


DM8 .DS 1 


1186 


DM1 .DS 1 


1118 


DM2 .DS 1 


1126 


DM3 .DS 1 


1136 


DM4 .DS 1 


1146 


DM5 .DS 1 


1156 


DH6 .DS 1 


1166 


DM7 .DS 1 


1176 


XSAV .DS 1 


1188 


ASAV .DS 1 


1198 


YSAV .DS 1 


1288 


NARG .DS 1 


1218 


SVY . DS 1 


1226 


FPPTR .DS 1 


1236 


FT8K .DS 1 


1246 


STOK .DS 1 


1256 


OPERAT .DS 1 


1266 


OLDC .DS 1 


1276 


OLDAC .DS 1 


1286 


TA1 .DS 1 


1298 


TA2 .DS 1 


1388 


TA3 .DS 1 


1318 


TA4 .DS 1 


1328 


BCD1 .DS 1 


1336 


EDIT .DS 1 


1348 


SPX .DS 1 


1358 


STR .DS 1 


1168 


DTYP .DS 1 


1378 


FPN1 .DS 3 


1386 


ARGT .DS 3 


1396 


ROFST .DS 1 


I486 


COFST ,D5 1 


1416 


HLDF .DS 1 


1426 


HLDS .DS 1 


1436 


HLDY .DS 1 


1448 


STR2 .DS 1 


1456 


LEFTP .DS 1 


1466 


RIGHTP .DS 1 


1476 


.OPT LIST 


I486 


ENZ = * 


1498 


.OPT NO LIST 



1828 COLS 
1836 COLT 



DS 1 
DS 1 



LISTING 4: ASSEMBL Y 



6188 ; SAUEBD:BC ALC.PT3 
8116 l lH .HMJ.H I 
8126 HOME JSR CLRSCN 

8136 JSR RSTCRS 

6148 HH2 JSR DRflMH 

8156 JSR DRCOL 

6168 HH3 JSR REFSCR 

8176 JSR SHMT2 

6188 JMP IUCRS 

8196 ; Hm«4'liH.U 

6288 RSTCRS LDA 88 

8216 STA FCOL 

6228 STA FROH 

6238 STA SROH 

6246 STA SCOL 

8256 CRS2 STA CURRH 

6266 STA CRSY 

6278 LDA 82 

8289 STA CRSX 

6298 LDY FCDL 

6386 CLC 

6318 ADC COLH.Y 

6326 STA CRSEN 

6338 RTS 

8346 iHiH a -itm 

•356 SHOHST JSR CLRTXT 

•366 LDY 826 

6376 SJA LDA STT,Y 

6388 STA TXTHIN+2,Y 

6396 DEY 

8486 BPL SJA 

•418 LDY 832 

6428 SJN LDA SEG,Y 

6436 STA TXTHIN+42,Y 

6448 DEY 

8458 BPL 5 JN 

6466 i mam; 

6476 LDA He 

6488 SEC 

8498 SBC ENDAT 

8588 STA FR6 

6518 LDA 186 

8528 SBC ENDAT+1 

8538 STA FRB+1 

8548 JSR IFP 

6558 JSR FASC 

8566 LDY 86 

8576 FHLP LDA (INBUF), Y 

8588 PHA 

8598 AND 8$7F 

8688 JSR AS2IC 

8616 STA TXTHIN+29,Y 

6626 INY 

6638 PLA 

8646 BPL FH LP 

8656 ;IHBKEra 

6666 LDY 88 

6678 FSLP LDA FNAME.Y 

8686 CMP 8E0L 

8696 BEO FSLL 

6788 JSR AS2IC 

8716 STA TXTHIN+7,Y 

6728 INY 

8738 CPY 816 

8748 BNE FSLP 

6758 FSLL JSR GCH 

8766 JMP CLRTXT 

8778 i m«4j,mim 

8788 SETREF JSR ST2BF1 

6798 JSR FINARG 

8886 BCS 502 

8818 JSR GTCLRH 

•828 BCS S62 

8836 JSR FINARG 

6848 LDX 88 

6858 59LP LDA BF1,Y 

6868 STA BF1.X 

8876 CHP 8E0L 

8888 BEO S8P 

8898 INY 

8988 INX 

8918 BNE S9LP 

8928 S8P LDX 83 

6938 5FR LDA BF1,X 

6948 JSR AS2IC 



to 
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8950 STA REFTAB.X 

•566 SEX 

8979 BPL 5FR 

8508 LDA COLNU 

8598 STA SETCOL 

ieee lda rohhu 

111* STA SETROH 
1829 S02_RT5__ 

1838 ;H3ir«33E 

1849 5HHREF JSR CLLINI 

1858 LDX 81 

1868 SMQ LDA REFTA8*2,X 

1878 STA TXTHIN+141.X 

1888 LDA REFTAB.X 

1858 STA TXTHIN+121,X 

1188 BEX 

1118 BPL SHQ 

1128 LBA FROM 

1118 CLC 

1148 ADC CURRH 

1158 JSR STRAD 

1168 XRA LDY 88 

1178 LDA !LL),Y 

1188 CMP 8SFF 

11)8 BEQ NRF 

1288 CMP SETCOL 

1218 BEQ GRF 

1228 BCC URF 

1238 NRF JMP 507 ; try C01 

1248 URF JSR UP1C0L 

1258 JMP XRA 

1268 CRF LDV 81 



1278 
1288 
1298 
1388 
1318 
1328 
1338 
1348 



LDA (LL), 
AND »3 
BEQ TXT 
CMP 81 
BNE NRF 
JSR LL2FR8 
JSR FASC 
LDY 88 



;text 



1358 S06 LDA CINBUFJ.Y 

1368 PHA 

1378 AND 8S7F 

1388 JSR AS2IC 

1358 STA TXTHIN+124,Y 

1488 PLA 

1418 BMI S07 

1428 INY 

1438 CPY 1114 

1448 BNE 506 

1458 TXT LDY 82 

1468 LDA fLLl,Y 

1478 STA ASAU 

1488 JSR ADDDT 

1498 ldy ae 

1588 SOS LDA CLL),Y 

1518 JSR AS2IC 

1528 STA TXTWNtl24,Y 

1538 INY 

1548 CPY ASAV 

1558 BEQ S07 

1568 CPY 814 

1578 BNE S08 

1588 il.M-Hm'M-M] 

1598 S07 LDA SETROH 

1688 JSR STRAD 

1618 LDA SCOL 

1628 STA TM 

1638 XCL LDV 88 

1648 LDA CLLJ.Y 

1658 CMP 8SFF 

1668 BEQ NCOL 

1678 CMP TM 

1688 BEQ CCOL 

1698 BCC UCOL 

1788 NCOL RTS 

1718 UCOL JSR UP1C0L 

1728 JMP XCL 

1738 GCOL LDY 83 

1748 LDA CLLJ.Y 

1758 AND 83 

1768 BEQ TTX (text 

1778 CMP 81 

1788 BNE NCOL 

175-8 JSR LL2FR0 

1888 JSR FASC 

1818 LDY 80 

1828 SK2 LDA CINBUFl.Y 

1838 PHA 

1848 AND 8$7F 

1858 JSR AS2IC 

1868 STA TXTHIN+144.Y 

1878 PLA 

1888 BMI SKI 

1898 INY 

1588 CPY 814 

1518 BNE SK2 

1528 TTX LDY 82 

1538 LDA <LL3,Y 

1548 STA ASAV 

1558 JSR ADDDT 

1568 LDY 80 

1578 SK4 LDA CLLJ.Y 

1588 JSR AS2IC 

1558 STA TXTHIN+144.Y 

2888 INY 

2818 CPY ASAV 

2828 BEQ SKI 

2818 CPY 814 

2848 BNE SK4 

ISIS "M^mmm 

2878 SHHT2 LDX SCOL 

2888 LDA SROH 

2858 JSR LOCCEL 

2188 BCC SKB 

2118 LDA 81 

2128 STA DTYP 

2138 BNE SHHTYP 

2148 SKB LDY 81 

2158 LDA CLLJ.Y 

2168 AND 81 

2178 STA DTYP 

2188 JMP SHH TYP 

2i5B iihihbwi .. T 

2288 LL2FRB JSR ADDDT 

2218 LDX LL 

2228 LDY LL+1 

2238 JMP FLD8 R 

2248 itnEMnns 

2258 CLLINI LDY 8115 

2268 LDA 88 
2278 LPI STA TXTHIN.Y 

2288 INY 

2258 CPY 8168 

2388 BNE LPI 

2118 RTS 
2128 I 



I auto ret 



2118 ;8=t,l=B,2=f 
2348 SHHTYP LDA DTYP 
2158 ASL A 
2168 ASL A 
2178 ASL A 
2188 TAX 
2158 LDY 811 
2488 STE LDA TEXTYP.X 
2418 STA SCHEM.Y 
2428 INX 
2418 INY 
2448 CPY 819 
2458 BNE STG 
2468 UTS 

2478 lEBsnn 

2488 DIR JSR CLRSCN 

2458 LDA B'l 

2588 STA DIRTXT+1 

2518 JSR ST2BF1 

2528 JSR FINARG 

2518 BCS NDARG 

2548 STA DIRTXT+1 
2558 NDARG CLOSE 2 

2568 LDA 81 

2578 STA VCNT 

2588 LDA 81 

2558 LDX 8528 

2688 STA ICCOH.X 

2618 LDA 8 <DIRTXT 

2628 STA ICBAL.X 

2638 LDA 8 >DIRTXT 

2648 STA ICBAH.X 

2658 LDA 86 

2668 STA AUX1.X 

2678 LDA 88 

2688 STA AUX2.X 

2658 JSR CIOV 

2788 BPL DIROK 

2718 GENER JSR DSKERR 1 03333 

2728 JMP HM3 

2718 DIROK LDX 8S2B 

2748 LDA 85 

2758 STA ICCOH.X 

2768 LDA 8 <LBUF 

2778 STA ICBAL.X 

2788 LDA 8 >LBUF 

2758 STA ICBAH.X 

2888 LDA 88 

2818 STA ICBLH,X 

2828 LDA 8514 

2818 STA ICBLL.X 

2848 JSR CIOV 

2858 BPL PRDIR 

2868 JSR GCH 

2878 CLOSE 2 

2888 JMP HH3 

2B58 PRDIR JSR SCNPOS 

2588 LDX 88 

2918 LDY 811 

2528 DIRLP LDA LBUF.X 

2518 CMP 8E0L 

2548 BEQ NXDR 

2558 JSR AS2IC 

2568 STA CLJ.Y 

2578 INY 

2588 INX 

2558 JMP DIRLP 

1888 NXDR INC VCNT 

1818 LDA VCNT 

1828 CMP 817 

3838 BNE DIROK 

1848 JSR GCH 

1958 JSR CLRSCN 

1868 LDA 88 

1878 STA VCNT 

1888 BEQ DIROK 

1899 iCHSEiGujrEB 

3188 SCNPOS LDY VCNT 
1118 LDA Y4BL.Y 
1128 STA L 
1138 LDA Y48H.Y 
3148 STA L+l 

3158 RTS 

1168 ;EEEE 

1178 SAVE JSR ST2BF1 

1188 JSR FINARG 

3198 JSR GTFILE 

3288 JSR CHKDEV 

1218 BCC FILE? 

1228 DEVERR LDY 8165 

1238 JHP GENER 

3248 FILE? JSR FILEXST 

1258 BCC DEVOK 

1269 JMP HOME 

1278 DEVOK LDA 88 ;Wite 

1288 ldy 811 ;»et rec 

1298 BNE DOIT 

1188 LOAD JSR ST2BF1 

1118 JSR FINARG 

1128 JSR GTFILE 

1338 JSR CHKDEV 

3348 BCS DEVERR 

3359 LDA 84 sread 

3368 LDY 87 I input 

1178 DOIT STA DM6 ;keep CM 

3388 STY DH7 

3398 CLOSE 2 

1488 LDX BS29 

1418 LDA DM6 

1428 STA AUX1.X 

1438 LDA 81 

3448 STA ICCOM.X 

3458 LDA 8 <FNAME 

1469 STA ICBAL.X 

$478 LDA 8 >FNAME 

1488 STA ICBAH.X 

1498 LDA 88 

1588 STA AUX2.X 

1518 JSR CIOV 

1528 BPL RHOK 

1538 JMP GENER jUJiHJ 

1548 RHOK LDX 8S28 

1558 LDA DM7 

1568 TAY 

1578 STA ICCOH.X 

1588 LDA 8 <COLH 

1598 STA ICBAL.X 

3698 LDA 8 >COLH 

3618 STA ICBAH.X 

1628 CPY 87 linp? 

3638 BNE RITE 

3648 LDA 8SFF 

1658 STA ICBLL.X 

3668 STA ICBLH.X 

3678 BNE SINP 

1688 RITE LDA ENDAT 

1698 SEC 

1788 SBC 8 <COLH 



1718 STA ICBLL.X 

1728 LDA ENDAT+1 

1738 SBC 8 >COLH 

1748 STA ICBLH.X 

1758 SINP JSR CIOV 

1768 BPL IOOK 

1778 CPY 8116 (EOF? 

1768 BEQ IOOK 

3798 JMP GENER ; Uulidi 

3888 IOOK CLOSE 2 

1818 LDA DM6 

3828 CMP 88 

1838 BEQ URF 

1848 LDX 8$2B 

1859 LDA 8 <COLH 

1860 CLC 

3878 ADC ICBLL.X 

1888 STA ENDAT 

3899 LDA 8 >COLH 

1988 ADC ICBLH.X 

1918 STA ENDAT+1 
1928 HRFJMP HOME 
1938 iRSES 
3948 GOTO JSR ST2BF1 

1958 JSR FINARG 

1968 BCS OAB 

1978 JSR GTCLRH 

1988 BCS QAB 

1998 LDA ROHHU 

4888 CMP 847 

4818 BCS OAB 

4828 LDA COLNU 

4838 CMP 855 

4848 BCS OAB 

4858 JSR IVCRS 

4868 JSR CLRSCN 

4878 LDA COLNU 

4888 STA FCOL 

4898 STA SCOL 

4188 LDA ROHHU 

4118 STA FROH 

4128 STA SROH 

4130 LDA 88 14 CTS2 

4148 JSR CRS2 

4158 JMP HM2 
4168 O AB RTS 

4178 ;£EGE£Q1 

4188 ST2BF1 LDY 8114 

4198 SOI LDA STRING. Y 
4288 STA BF1.Y 
4218 DEY 
4228 BPL SOI 
4238 RTS 

4248 jBHEDHBCE 

4258 ARECL JSR RECALC 
4268 JMP HOM E 

4278 : I MJ4M<^4 -. 

4288 FORCE LDA 81 
4298 STA FRCTXT 
4388 RTS 

4319 l liCTBJBMjn 

4129 KILLCL LDA SCOL 
4118 TAX 

434B LDA FROH 

4358 CLC 

4368 ADC CURRH 

4378 STA TM 

4388 JSR LOCCEL 

4198 BCC LCELL 

4488 RTS jllLllt) 

4418 LCELL LDA TM 

4428 JSR DELTCL 

4438 JSR IVCRS 

4448 LDA 82 

4458 STA SPX 

4468 LDA CURRH 

4470 STA VCNT 

4480 LDA SROH 

4490 JSR REFROH 

4588 JSR IVCRS 

4518 RTS 

4529 : IHifBHJJ 1 

4518 FINARG LDY 88 

4548 F8LP LDA BF1.Y 

4558 CMP 8E0L 

4568 BEO NOARG 

4570 CMP 8$28 

4588 BEQ FSPCE 

4598 INY 

4688 CPY 8*20 

4618 BNE FSLP 

4628 NOARG SEC 

4630 RTS 

4648 FSPCE INY 

4658 FARC LDA BF1.Y 

4668 CMP 8E0L 

4670 BEQ NOARG 

4688 CMP 8$28 ;*pac 

4698 BNE GTARG 

4788 INY 

4718 CPY 8528 

4720 BNE FARG 

4738 BEO NOARG 

4740 GTARG CLC 

4750 RTS 

4768 ;m«»l»m 

4778 GTFILE LDX 89 

4780 F9LP LDA BF1.Y 

4798 STA FNAME.X 

4888 CMP 8E0L 

4818 BEO FGD 

482B INY 

4838 INX 

4848 BNE FSLP 

4858 F GD RTS 

4868 jHMMilMSCin 

4878 HIDTH JSR ST2BF1 

4880 JSR FINARG 

4858 BCS NOH 

4588 JSR GTCLRH 

4518 BCS NOH 

4528 INC ROHNU 

4538 LDA ROHNU 

4548 CMP 82 

4550 BCC NOH 

4560 CMP SII 

4578 BCS NOH 

4588 LDY COLNU 

4558 STA COLH.Y 

5889 JSR CLRSCN 

5919 JSR DRAHH 

5928 JSR REFSCR 

5838 LDY FCOL 

5848 STY SCOL 

5958 LDA 82 

5868 STA CRSX 

5878 CLC 

5088 ADC COLH.Y 
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5896 
5188 

sue 

5128 

5138 

5148 

5158 

5168 

5178 

6188 

5198 

5288 

5218 

6228 

5238 

5248 

5258 

5268 

5278 

5288 

5298 

5388 

5318 

5328 

5338 

5348 

5358 

5368 

5378 

5388 

5398 

5488 

5418 

5428 

5438 

5448 

5458 

6468 

5478 

6488 

5498 

5588 

5518 

5528 

5538 

5548 

5558 

5568 

5578 

5588 

5598 

5688 

5618 

5628 

5638 

5648 

5658 

5668 

5678 

5688 

5698 

5788 

5718 

5728 

5738 

5748 

5758 

5768 

5778 

5788 

5798 

5888 

5818 

6628 

5838 

5848 

5858 

5868 

5878 

5888 

5898 

5986 

5918 

5928 

5938 

6948 

5958 

5968 

5978 

5988 

6998 

6888 

6818 

6828 

6838 

6848 

6858 

6868 

6878 

6888 

6898 

6188 

6118 

6128 

6138 

6148 

6158 

6168 

6178 

6188 

6198 

6288 

6218 

6228 

6238 

6248 

6258 

6268 

6278 

6288 

6298 

6388 

6318 

6328 

6338 

6348 

6358 

6368 

6378 

6388 

6398 

6488 

6418 

6428 

6438 

6448 

6458 

6468 



STO CRSEN 

JSR IUCRS 

M0HRT5 



;H!WT»5nHJU».l,WJiH 


5H0CEL LDX SCOL 




LDA 


SROH 




JSR 


LDCCEL 




tec 


UAA 




RT5 




;none 


uaa ldv 


m 


; f omat 


LDA 


CLLl.Y 




STA 


$88 




IMV 




; length 


LDA 


ILL),Y 




STA 


LENC 




INV 






LDA 


CLL1.Y 




AND 


S3 




■NE 


UAB 




UAC JSR 


ADDDT 




LDV 


LENG 


;text 


DEY 






UAH LDA 


CLL>,Y 




STA 


STRING, 


Y 


DEY 






■PL 


UAH 




UAE LDA 


ttSrr 




STA 


XPOS 




JSR 


DRHIN 




RTS 




lEEBQ 


UAB CMP 


82 




BEQ 


UAF 




JSR 


ADDDT 




LDX 


LL 




LDY 


LL + 1 




JSR 


FLD8R 




JSR 


FASC 




LDY 


ne 




UAD LDA 


CINBUF) 


,Y 


PHA 






AMD 


»*7F 




STA 


STRING, 


Y 


PLA 






■ HI 


UAE 




INY 






BNE 


UAD 




UAF LDA 


LENG 




SEC 






SBC 


116 




STA 


LENG 




J HP 


UAG 




EDITH LDA ttl 






STA 


EDIT 




JSR 


SHOCEL 




JSR 


INPUT2 




PHP 






LDA 


KB 




STA 


EDIT 




PLP 






BCC 


EOOK 




RTS 






EOOK PLA 




PLA 






LDA 


$88 




STA 


FORHAT 




J HP 


GTIN 





6478 STA FORHAT 

6488 | 

6498 SHOFRH LDA FORHAT 



FORH JSR CLRTKT 
LDY SCOL 
LDA FHCOL,Y 
STA FORHAT 
LDX »18 

FPB DEX 

BHI FPX 

FPA LDA FHES,X 

STA TXTHIN+2,K 
CPX 85 
BCC FPB 
LDA FHA-5,X 
STA TXTHIN*42,X 
LDA FHS-5,X 
STA TXTMIN+B2,X 
LDA FHC-5.X 
STA TXTHIM+122.H 
JHP FPB 

FPX JHP SHOFRH 



FPC LDA 


CH 


CMP 


BSFF 


BEO 


FPC 


LDX 


USFF 


STX 


CH 


CMP 


itSIC 


BNE 


FPD 


RTS 


jEEEE 


FPD LDX 


02 


FPE CHP 


JSKEY,X 


BEQ 


FPF 


DEX 




BPL 


FPE 


BHI 


FPG 


FPF LDA 


FORHAT 


AND 


8252 


STA 


ASAV 


TXA 




ORA 


ASAV 


STA 


FORMAT 


JHP 


SHOFRH 


FPG CHP 


t»$3A ;D 


BNE 


FPH 


LDA 


FORHAT 


EOR 


as 


STA 


FORHAT 


JHP 


SHOFRH 


FPH CMP 


n$2e j , 


BNE 


FPJ 


LDA 


FORHAT 


EOR 


84 


STA 


FORHAT 


JHP 


SHOFRH 


FPJ LDX 


ns 


FPK CHP 


NKEY.X jdec places 


BEO 


FDD 


DEX 




BPL 


FPK 


BHI 


FPC 


FDD TXA 




PHA 




LDA 


FORHAT 


AND 


8*8F 


STA 


FORHAT 


PLA 




ASL 


A 


ASL 


A 


ASL 


A 


ASL 


A 


ORA 


FORHAT 



6588 
6518 
6528 
6538 
6548 
6558 
6568 
6578 
6588 
6598 
6688 
6618 
6628 
6638 
6648 
6658 
6668 
6678 
6688 
6698 
6788 
6718 
6728 
6738 
6748 
6758 
6768 
6778 
6788 



AND 83 

TAX 

LDA LCR,X 

STA TXTHIN+19 

LDA FORHAT 

AND 88 

LSR A 

LSR A 

LSR A 

TAX 

LDA YN,X 

STA TXTHIN+59 

LDA FORHAT 

AND 84 

LSR A 

LSR A 

TAX 

LDA YN,X 

STA TXTHIN+99 

LDA FORHAT 

AND 8SFB 

LSR A 

LSR A 

LSR A 

LSR A 

TAX 

LDA 5DEC,X 

STA TXTHIM-H39 

JHP FPC 



7858 
7868 
7878 
7888 
7898 
7988 
7918 
7928 
7938 
7948 
7958 
7968 
797B 
7988 
7998 
8888 



LSR A 
LSR A 
LSR A 
LSR A 

STA TORITE 
PLA 

AND 84 
BNE FNCOH 
LDY 8*FF 

ICPL INY 

LDA CINBUF) , 
STA CIL),Y 
BPL ICPL 

IFH1 JHP IDSGN 



JCOMMas? 

lilts 



JHJH3HMHE 

8818 FNCOM LDY 8SFF 
8828 FHll INY 



8838 

8848 

8858 

8868 

8878 

8888 FH 

6898 

8188 

8118 



LDA NUHB.Y 
BHI FHID 
CHP 8'. 
BNE FHll 
DEY 
D STY SVY 
LDX 829 
ILP1 LDA 82 
STA FCNT 



6798 


iciniMBBimni 


6888 


GLOBAL . 


JSR FORH 


6818 


LDY 


SCOL 


6828 


LDA 


FORMAT 


6818 


STA 


FHCOL.Y 


6848 


RTS 




6858 
6868 


;IMii:Ms>Ml4ll 

FORHC LDA SROH 


6878 


LDX 


SCOL 


6888 


JSR 


LOCCEL 


6898 


BCC 


ECL 


6988 


RTS 




6918 


ECL JSR 


FORH 


6928 


LDY 


81 


6938 


LDA 


FORHAT 


6948 


STA 


CLL),Y 


6958 


LDX 


CURRM 


6968 


STX 


VCNT 


6978 


LDA 


SROH 


6988 


JSR 


REFROU 


6998 


LDY 


SCOL j restore 


7888 


LDA 


FHCOL.V ;glob. fornt 


7818 


STA 


FORMAT 


7828 


JHP 


IUCRS 


7838 


JHTFITSTHTI 



8128 ILP2 LDA NUMB,Y 

6138 AND 8$7F 

8148 STA LBUF.X 

8158 DEX 

8168 DEY 

8178 BHI ILV 

8188 DEC FCNT 

8198 BPL ILP2 

8288 LDA 8', 

8218 STA LBUF.X 

8228 DEX 

8238 BPL ILP1 
8248 ILV INX 



7848 RONOF LDA ONF 
7858 EOR 83 
7868 STA ONF 
7878 TAX 
7888 LDY 88 
7898 RPP LDA ONOFH, X 



8258 

8268 

8278 

8288 

8298 

8388 

8318 

8328 

8338 

8348 

8358 

8368 

8378 

8368 

6398 

8488 J 

8418 INNU INX 

8428 LDA NUMB , X 

8438 STA STRING, Y 



LDY 81 
ILP3 LDA LBUF,X 
STA STRING, Y 
INY 
INX 

CPX 838 
BNE ILP3 
LDX SVY 
LDA NUHB.X 
BPL INNV 
DEY 

LDA STRING, Y 
ORA 8588 
STA STRING, Y 
BNE IDSGN 



7188 


STA SEG+7«Y 


7118 


INX 


7128 


INY 


7138 


CPY 83 


7148 


BNE RPP 


7158 


RTS 


7168 


iiisnsjTramBBTj.in 

RCFLP LDA RCFLG 


7178 


7188 


EOR 86 


7198 


STA RCFLG 


7288 


TAX 


7218 


LDY 88 


7228 


RHK LDA RCHES.X 


7238 


STA SEG+27.Y 


7248 


INX 


7258 


INY 


7268 


CPY 86 


7278 


BNE RHK 


7288 


RTS 


7298 


iritHISJJJJ.IJ 


7388 


DSKERR STY YSAV 



8448 
8458 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 
8548 
8558 
8568 
8578 
8568 
8598 



BHI IDSGN 

INY 

BNE INNU 
I 
IDSGN LDA FORHAT 

AND 88 

BEO I AFTER 

LDA 8 <STRING 

STA IL 

LDA 8 7STRIHG 

STA IL+1 



andie places 
earch for E 



(flag 



7318 
7328 
7338 
7348 
7358 
7368 
7378 
7388 



CLOSE 2 
LDY YSAU 
STY FR8 
LDA 88 
STA FR8+1 
JSR IFP 
JSR FASC 
LDY 8$FF 



7398 ERLPA INY 

7488 LDA CINBUF}, Y 

7418 PHA 

7428 AND 8$7F 

7438 JSR AS2IC 

7448 STA DERM+6.Y 

7458 PLA 

7468 BPL ERLPA 

7478 JSR CLLIN3 

7488 LDY 828 

7498 ERLPB LDA DERM, Y 

7588 STA TXTHIN+124,Y 

7518 DEY 

7528 BPL ERLPB 

7538 LDA i!$FF 

7548 STA CH 

7558 JSR GAKEY 

7568 RTS 

7578 jNuMber Fornat subroutine 

7588 ; for i '-«l.c 

7688 ; bit 4-7 IP lac es after Decinal 

7618 ;bit 3l Dollar Sign Flag 

7628 jbit 2i Coma Flag 

7638 |bit S-lI L/CR Justify 

7648 I 

7658 FRHMUH LDY BSFF 

7668 IFH8 INY 



7678 


LDA CINBUF], Y 


7688 


STA NUHB.Y 


7698 


BPL IFH8 


7788 


LDY 8*7F 


7718 


LDA 8'8 


7728 FN 


,1 STA STRING, Y 


7738 


DEY 


7748 


BPL FN.l 


7758 


LDA 8'S 


7768 


STA STRING 


7778 


LDA 8 <tSTRING+l] 


7788 


STA IL 


7798 


LDA 8 >[STRING+1] 


7888 


STA IL+1 


7818 ; 




7828 


LDA FORHAT J get 


7838 


PHA 


7848 


AND 8$F8 



I AFTER LDA 88 

STA SCI 

LDY BSFF 
8688 HXA INY 
8618 LDA STRING, Y 
8628 BHI IAF2 J none 
8638 CHP 8'E 
8648 BNE HXA jkot yet 
8658 (got exp 

8668 INC SCI ;set fig 
8678 DEY jinvs prev byt 

6688 LDA STRING, Y 

8698 ORA 8$S8 

8788 STA STRING, Y 

8718 LDX 8$FF Jbck to E 

8728 HXB INX 

8738 INY 

8748 LDA STRING, Y 

8758 PHA 

8768 AND 8$7F 

8778 STA SUEX.X 

8780 LDA 8' 8 

8798 STA STRING, Y 

8888 PLA 

8618 BPL HXB 

8828 ;show end 

8838 INX 

8848 STX SCI 

BB58 LDA 8E0L 

8868 STO SVEX.X 

8878 IAF2 LDY MSFF 

8888 :AF INY 

6898 LDA STRING, Y 

8988 BPL ITP 

8918 AND 8$7F 

8928 STA STRING, Y 

8938 INY 

8948 LDA 8' . 

8958 STA STRING, Y 

8968 STY SUY 

8978 JHP UH 

8988 ITP CHP 8' . 

6998 BNE lAF 

9888 STY SVY 

9818 IA2 INY 

9828 LDA STRING, Y 

9838 BPL 162 

9848 AND 8S7F 

9858 STA STRING, Y 

9868 UH LDA SUY 

9878 CLC 

9BB8 ADC TORITE 

9898 TAY 

9188 LDA T8RITE 

9118 BNE I EL 

9128 DEY 

9138 I EL LDA 8E0L 

9148 STA STRING+l.Y 

9158 ;chk for E 

9168 LDA SCI 

9178 BEO CKHIM 

9188 LDX 88 

9198 HXC LDA SUEX.X 

9288 STA STRING+1,Y 

9218 CHP 8E0L 

9228 BEO CKHIN 

9238 INX 
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5248 


INV 


5259 


BNE HXC 


5266 


:l4imMiB--aff 


5276 


CKMIM LDA 5TRIKG+1 


5266 


CMP »•- 


5258 


BNE FRHTXT 


5368 


LDA STRIHG+2 


5118 


cmp a', 


5328 


BNE FRMTXT 


5336 


ldv ne 


5346 


HILP LDA STRING+3,Y 


5358 


STA STRIHG+2, Y 


5366 


CMP 8E0L 


5378 


BEQ FRHTXT 


5388 


INY 


5358 


BNE HILP 


5488 
5416 


FRMTXT LDY8SFF 


5428 


:L1 INY 


5438 


LDA CIL1.Y 


5446 


CMP 8EOL 


5458 


BNE :L1 


5468 


STY SUY 


9478 




5488 


ILCR LDX »S7F 


5458 


lda nS2e 


5588 


IL2 STA LBUF.X 


5518 


DEX 


5528 


BPL IL2 


5538 


J 


5548 


LDA FORMAT 


5556 


AND 03 


9668 


TAX 


5576 


BED tHAU 


5588 
5558 


: II 1 \ Bf III j II If] 


5688 


BNE :CEN 


5618 


LDY TM 


5628 


LDA COLH.Y 


5638 


SEC 


5648 


5BC SUY 


5658 


BPL IHV 


9668 


YUA LDX «8 


9676 


BEO ILC 


9688 


iUJiUJJ 


9698 


ICEN LDY TM 


9788 


LDA COLH.Y 


9718 


SEC 


9728 


SBC SVY 


9738 


BPL tCl 


9748 


EDR USFF 


9758 


LSR A 


9768 


TAY 


9778 


JMP YUA 


9788 


IC1 LSR A 


9798 


:HU TAX 


9888 


;ajJ. | »'S»l l ILI«il 

!HBV LDY 8SFF 


9818 


9828 


ILC INY 


9836 


LDA CILJ.Y 


9848 


CMP »EOL 


9858 


BEQ ILB 


9866 


STA LBUF.X 


9878 


INX 


5886 


BNE ILC 


5858 


ILB LDA It <LBUF 


5568 


STA IL 


5518 


LDA a >LBUF 


9928 


STA IL+1 


9938 


RTS 



•18848 
818858 
•18868 
•18678 
•18888 
•18898 

aieiee 



9948 SCI .BYTE ■ 
9958 SVEX .DS 4 
9966 .BYTE EOL 

9976 ijsmmxmm 

5568 CHKDEU LDA FNAME 
5598 CMP «'D 

•leeee bne hrdev 

819618 LDA FNAME+1 
•18828 DUKUM CMP B 1 I 
•16638 BEO AYOK 

CMP 0'8 

BEO HYOK 

CMP n'l 

BCC HRDEV 

CMP »'4 

BCS HRDEU 

BCC MYOK 
818118 AYOK CLC 
•18128 RTS 
818138 HRDEU SEC 
818148 RTS 
818156 HYOK LDA FNAME+2 
616168 CMP tt' I 
•18178 BEQ AYOK 

618188 BNE HRDEU 

• 18150 i llHJJSBHMtmflH-U 
819268 FILEXST LDA U8 
818218 STA TXTHIH+2 
CLOSE 2 

LDA 836 jlinlOC 

STA ICCOM.X 

LDA a >FNAME 

STA ICBAH.X 

LDA » <FNAHE 

STA ICBAL.X 

JSR CIOU 

LDA ICCOH+l.X jstat? 

PHA 
CLOSE 2 

PLA 

CMP ai 

BEO FYES 
•1S36S OVUR CLC 
■18378 RTS 

•16388 FYES LDA a >REPMES 
■18398 LDX a <REPMES 
•18468 LDV ai 
818416 JSR PRNTTH 
•18428 YNK LDA CH 
■18438 LDX OSFF 

CMP OS2B 

BEO OVHR 

CHP 8S23 

BNE YNK 

STX CH 

SEC 

RTS 



818228 
818236 
■18248 
818258 
•18268 
818278 
818288 
•18258 
818368 
818318 
•18328 
818336 
618348 
•18358 



•18448 
•18458 
•18468 
•18478 
•18488 
816458 
•18588 



J yes 



;no 



LISTING 5: ASSEMBLY 



8198 ;SAUE8Dlbcalc.pt4 

8126 i BBBIMn aiflBouTI 

•136 TRYFNC LDA 06 



■148 STA FPPTR 
■158 JSR ZFR8 

•168 PARS LDX B6 
•178 STX STR 

8188 PLP LDA STRING, X 
■158 STA BF1,X 
■288 CHP ttEOL 
•218 BEO PDON 
•228 INX 
•238 BNE PLP 

•248 P DON STX STR 

tin i mMW g 

• 278 J 8ABSC , , 1 

•288 ; TH »TH1* TH2 

•258 jfpnl-J fp tokens 

8388 FNDFUN LDX Ol 

8318 FFK LDA BF1.X 
■ 320 CMP O'fi 
■338 BEO FFN 
8348 INX 
■358 CPX STR 
■360 BNE FFK 

■378 FFT JHP PASS2 

8388 FFN STX TH 
8358 LDA a >FTAB 
8488 STA LL+1 
■418 LDA a <FTAB 
•428 STA LL 
■438 INX 
■448 STX TH1 

8458 FFS LDY B8 

8468 FFR LDA (LL),Y 
•478 BEQ FFT 
•488 BMI FFP 
■458 CHP BF1,X 
•588 BNE FFQ 
•518 INX 
•528 INY 
•538 BNE FFR 

8548 FFQ LDA B4 
•558 JSR INCLL 
•568 LDX TM1 
•578 BNE FFS 

8588 FFP AND BS7F 



jnone 



J no Mat 
list chr 



jntxt 



8558 

8668 
6618 

• 628 

• 638 

• 648 

• 656 

• 668 
6678 
8668 
8658 
8788 
8716 

• 728 ;[ 
6738 ;( 
8746 
8758 
8768 
8778 
8788 
8758 



CMP BF1,X 

BNE FFQ 

LDY 03 

LDA CLL1.Y 

STA ASAV 

INX 

STX TH1 

ASL A 

TAX 

LDA JTAB.X 

STA JPOFF+1 

LDA JTAB+1,X 

STA JPOFF+2 



ow get argurient 
f 1 arg. in frO 



LDA MB 
STA NARG 
LDY TH1 
LDA BF1.Y 
CMP 8' C 
BEQ FFD 



iFtt 



;st 



8888 FFX SEC 

•818 RTS 

8828 FFD INY 

8838 LDA BF1.Y 

8848 CMP a'D 

•858 BCS FFX 

• 868 CHP B'A 

■878 BCS FFH 

•888 STY CIX 

8858 STY TH1 

8588 JSR FP2BF1 

8518 JSR AFP 

8928 BCS FFX 

8538 JSR SPFR2ST 

•548 BCS FFX 

•958 LDY CIX 

•968 FFH LDA BF1,Y 

8978 CHP O') 

8988 BNE FFC 

8998 JMP FFI 

1888 FFC CMP a', 

1616 BEQ FFD 

1626 BNE FFX 

1938 FFH STY TM1 

1846 JSR GTCLRH 

1858 FFY BCS FFX 

1868 LDY NARG 

1878 LDA COLNU 

1888 STA COLF,Y 

1898 LDA ROHNU 

1188 STA ROHF.Y 

1118 LDA ASAU 

1128 CHP 87 

1138 BEQ FUA 

1148 LDX COLNU 

1158 LDA ROHNU 

1168 JSR CL2FR8 

1178 BCS FFY 

1188 FVA LDY NARG 

1198 LDA OS88 

1288 STA ARGT.Y 

1218 JSR SPFR2ST 

1228 BCS FFY 

1238 FOB LDA TM1 

1248 CLC 

1258 ADC 04 

1268 STA TH1 

1278 TAY 

1288 JHP FFH 

1298 .. 

1388 FFI INY 

1318 STY TH2 

1328 LDY TH 

1338 LDX TH2 

1348 JSR COLAPS 

1358 LDX ae 

1366 FFO LDA BF1.X 

1378 CHP OEOL 

1388 BEQ FFL 

1398 INX 

1488 BNE FFO 

1418 FFL STX STR 

1428 JSR ADD2SP 

1438 LDY TH 

1448 LDA a'a 

1458 STA BF1,Y 

1468 LDA FPN1 

1478 STA BF1+1.Y 
1488 J POFF JSR SFFF F 
1458 ; I*.T4I»<.»H-.I .-Hil 

1588 BCC JJJ 

1518 RTS 
1528 JJJ JMP FNDFUN 



jcell 

;« 



jcnting only 



1538 

1548 

1558 

1568 

1578 

1588 

1558 

1688 

1618 

1628 

1638 

1648 

1658 

1668 

1678 

1688 

1658 

1788 

1716 

1728 

1738 

1748 

1758 

1768 

1778 

1788 

1758 

1888 

1818 

1828 

1838 

1848 

1858 

1868 

1878 

1888 

1898 

1988 

1918 

1928 

1938 

1948 

1958 

1968 

197* 

1988 

1998 

2888 

2818 

2828 

2838 

2848 

2858 

2868 

2878 

2888 

2898 

2188 

2118 

2128 

2138 

2148 

2158 

2168 

2178 

2188 

2198 

2288 

2218 

2228 

2238 

2248 

2258 

2268 

2278 

2288 

2298 

2388 

2318 

2328 

2338 

2348 

2358 

2368 

2378 

2388 

2398 

2488 

2418 

2428 

2438 

2448 

2458 

2468 

2478 

2488 

2498 

2588 

2518 

2528 

2538 

2548 

2558 

2568 

2578 

2588 

2598 

2668 

2618 

2628 

2638 

2648 

2658 

2668 

2678 

2688 

2698 

2788 

2718 

2728 

2738 

2748 

2758 

2768 

2778 

2788 

2798 

2888 

2818 

2828 

2838 

2848 

2858 

2868 

2878 

2888 

2898 

2988 

291R 



SPFR2ST LDA FPPTR 

LDY NARG 

STA FPN1,Y 

INC NARG 

INY 

CPY 03 

BCS FFG 

TAX 

JSR FRBX 

INC FPPTR 

CLC 

RTS 
FFG SEC 

RTS 



CL2FRB STX COLNU 

JSR STRAD 
EE LDY as 

LDA CLLJ.Y 

CHP a$FF 

BEQ ED 

CHP COLNU 

BEQ EB 

BCC EC 
ED SEC 

RTS 
EC JSR UP1C0L 

JHP EE 

RTS 
EB LDY 83 

LDA CLL1.Y 

AND B3 

BEQ EN 

CHP ai 

BEQ EF 

LDY 02 

LDA (LL),Y 

SEC 

SBC B6 

JSR INCLL 
EF LDA 04 

JSR INCLL 

LDX LL 

LDY LL+1 

JSR FLD8R ;2 frB 
EN CLC 

RTS 



;c is set 

;data typ 



jtxt! 



;fn 




JS 

TAB .BYTE "STJ 
.BYTE "ABr 
.BYTE "5Q 
.BYTE "RN 
.BYTE "EX 
.BYTE "LO 
•BYTE "IN 
•BYTE "CN 
• BYTE "SU.-, 
.BYTE "AU@",9 
.BYTE • 

liraMEED 

JTAB .WORD SOU 
.HORD ABS 
.HORD SQR 
■HORD RND 
•HORD EXP 
.HORD LOG 
.HORD INT 
.HORD CNT 
.HORD SUH 
■HORD AVE 

; Himi'nm'a i 

ABS JSR CHKONE 
AXB LDA FRB 

AND a$7F 

STA FRB 
EXX LDX FPN1 

JSR FR8X 

CLC 

RTS 

;H3B 

INT LDA »8 

STA TRCF . 
JSR CHKONE 

HF JSR SETINB 
JSR FASC 
JSR TRUNC 
LDA FRB 
PHA 

JSR AFP 
PLA 

BPL EX2 
LDA TRCF 
BEQ EX2 
LDX a <ONE 
LDY a >ONE 
JSR FLD1R 
JSR FSUB 

EX2 JHP EXX 

;srn 

SOR JSR CHKONE 
LDX a <SFPN 
LDY a >SFPN 
JSR FSTBR 
JSR L0G18 
LDX 8 <THO 
LDY tt >TH0 

S0I2 JSR FLD1R 
JSR FDIU 
BCC SQQ 
RTS 

SQO JSR EXP1B 

EX3 BCS BDEX 

JSR RNDSQR 

EX8 JMP EX2 

BDEX RTS 



CHKONE 

L0G18 

a <THO 

a >THO 

FLD1R 

FHUL 

S07 



; default 



jtrunc flag 



ixit 



SOU JSR 
JSR 
LDX 
LDY 
JSR 
JSR 
BCC 
RTS 

SQ7 JSR 
BCC 
RTS 

;GHE 

RND JSR 
LDX 
LDY 
JSR 
JSR 
BCC 
RTS 

RP JSR 
JSR 
JSR 



EXPK 
EXS 



CHKONE 
a <HALF 
a >HALF 
FLD1R 
FADD 
RP 

FASC 

TRUNC 

SETINB 



A.N.A.L.O.G. COMPUTING' AUGUST 1988 



69 



1749 INC DM7 
1758 CNA INC DM2 

1768 LDA DM2 

1771 CMP DM1 

X78( BEO CNB 

3758 BCC CNB 

seee inc »H4 

1018 LDA DM4 

IB2B CMP DM5 

183* BEQ CNC 

I84B BCC CNC 

3858 JSR ZFRB 

1861 LDA 0M6 

1878 STA FR8 

1888 LDA DM7 

1898 STA frb+i 

3»8B JSR IFP 

1*18 CLC 

1926 RT5 



;nxt col 



;nxt row 



jgt cnt 



1)58 BEO CZ 

1168 CMP til 

3578 BEO CY 

1*88 CZ PLA jpull 

3998 PLA 

4888 SEC 

4818 CYJTS 

hi: {Wte« t 

4848 CMP 82 

4858 BNE CZ ;»rr 

4868 RTS 

4878 i U.UJ l UMt lEE 

4888 C H K C EL LDY Ml 

4898 CUP LDA DRGT.Y 

4188 BPL cz ;*rr 

4118 DEY 
4128 BPL CMP 
4138 RTS 

4148 idEacsjs 

4iB8 chTsiTTdTTohs 

4168 CMP ROHF 

4178 BCC CZ ;err 

4188 LDA COLS 

4198 CMP COLr 

4288 BCC CZ lorr 

4218 RTS 

4228 i CHjjMjia gra 

4236 DUPOAT LDX 87 
4248 DDT LDA COLF.X 
4258 STA DM8.X. 
4268 DEX 
4278 BPL DDT 
4288 RTS 

4298 i napBE 

4368 TRUNC LDY OS 

4318 TI LDA IINBUFI.Y 

4328 BMI TEX 

4138 CMP tl'. 

4348 BEO TJAA 

4358 INY 

4368 BNE TI 

4378 TJAA STA TRCF I flag 

4388 TJ LDA UEOL 

4398 STA CINBUFl.Y 

4488 rts i rrar 

4418 TEX AND B*7F 
4428 STA CINBUF1.Y 

4438 INY 

4448 BNE TJ 

4456 i WHI l- 

4468 SAUFPH LDX FPPTR 

4478 

4488 

4498 

4588 

4518 

4528 



LDA STHI.X 

TAY 

LDA STLO.X 

TAX 

JSR FSTSR 

RTS 



4538 l lJUJJMM 

4548 r£t>pVTdX FPPTR 

4558 LDA STHI.X 

4568 TAY 

4578 LDA STLO.X 

4588 TAX 

4598 JSR FLD1R 

4688 RTS 

iii: i HMfflfflfit?™ 

4638 PA552 LDY 81 

4648 LCEL LDA BF1.Y 

4658 CMP «'D 

4668 BCS NXY 

4678 CMP B'A 

4688 BCS AHA 

4698 NXY INY 

4788 CPY STR 

4716 BNE LCEL 

4728 JHP PASS! ;do it's next 

4738 AHA STY TM J * or collps 

4748 TYA jstrt 

4758 CLC 

4768 ADC B4 

4778 STA TM2 J*nd 

4768 JSR CTCLRH 

4798 BCS ACD 

4888 LDA ROHNU 

4818 JSR STRAD 

4828 ACC LDY MB 

4839 LDA CLL),Y 

4848 CMP 8SFF tend? 

4858 BEQ ACD ; error 

4869 CMP COLNU 

4878 BEO ACA J yup 

4888 BCC ACB 

4898 ACD RTS 

4988 ACB JSR UP1C0L 

4916 JHP ACC 

4926 ACA LDY 83 J gt Oil 

4936 LDA (LL1.Y 

4948 AND l»3 ;dt tup* 

4958 BEO ACD 1 text I 

4968 CMP 81 lit? 

4978 BEO ACE 

4988 LDY B2 

4998 LDA CLLJ.Y 

5888 SEC 

6818 SBC 86 

5828 JSR INCLL 

5838 idefault 

5648 ACE LDA 84 
B656 JSR INCLL 
8668 LDX LL 
5878 LDY LL + 1 
6888 JSR FLD8R 
5898 LDA 84 
5188 STA TM1 
8116 JSR PUTTOK 



5128 




LDY 


TH 




6139 
5149 


/tiU 


J MP 


NXY 




5159 


PUT 


TON I 


LDY TM 




5169 




LDX 


TM2 




5179 




JSR 


COLAPS 




5189 




LDA 


STR 




5199 




SEC 






5288 




SBC 


TM1 




5218 




STA 


STR 




5228 




JSR 


ADD2SP 




5238 




LDY 


TH 




5248 




LDA 


8'8 




5258 




STA 


BF1.Y 




5268 




LDA 


FPPTR 




5278 




INY 






S288 




STA 


BF1.Y 




5298 




STY 


TH 




6388 
5316 


u : 




5328 




LDA 


STHI.X 




5338 




TAY 






5348 




LDA 


STLO.X 




5358 




TAX 






5368 




JSR 


FST6R 




5378 




INC 


FPPTR 




6388 




RTS 






5398 
5488 
5418 


;mi 






PASS3 LDY 81 


t find 8 loo 


5428 


FNLP LDA BF1.Y 




5438 




CMP 


8EOL 




5448 




BEO 


PSS 




5458 




CMP 


8'f 




5468 




BEO 


PSH 




5478 




CMP 


8-1 




5488 




BEQ 


PSH 




5498 




CMP 


8'8 




5568 




BNE 


P5I 




5518 




INY 






5S28 




INY 






5536 




JHP 


PSS 




5549 


P5M 


INY 






5558 




JHP 


FNLP 


) look again 


5568 


P5I 


STY 


CIX 


tget a 
tlit byte 8 


5578 




STY 


TH 


5569 




JSR 


FP2BF1 




5598 




JSR 


AFP 


j get fpa 


5698 




BCS 


PSL 




5618 




LDX 


CIX 




5628 




TXA 






5638 




STA 


TH2 




5648 




SEC 






56SB 




SBC 


TH 




5668 




STA 


TH1 


J8 less 


5678 




JSR 


PUTTOK 




5668 




LDY 


TH 


j get pos. b< 


5698 


NXEN I 






5798 




CPY 


STR 




5718 




BEO 


PASS4 




5728 


PS5 


LDA 


BF1.Y 




6738 




CHP 


8E0L 




5748 




BEO 


PASS4 




5758 


PSK 


LDX 


84 




5766 


PSJ 


CMP 


OPTAB.X 




5778 




BEO 


NXA 




5788 




DEX 






5798 




BPL 


PSJ 




5888 




CMP 


8'] 




5818 




BEO 


NXEN 





5628 PSL SEC 
6838 



pass 4 find neste 
calculate & quit 



RTS 
5848 NXA INY 
5858 JMP FNLP 
5868 J 

5878 | 

5888 PASS4 LDY 88 
5898 P4A LDA 8F1.Y 
5988 CMP 8E0L 
5918 BEQ NOLF 
5928 CHP 8' C 
5938 BEO FLP 
5948 INY 
5958 BNE P4A 
5968 NOLF LDY 88 
5978 P4B LDA BF1.Y 
5988 CHP 8E0L 
5998 BEQ NOPRN 
6888 CHP 8'1 
6818 BEQ P4ER 
6828 INY 
6838 BNE P4B 
6849 BEQ P4ER 
6858 NOPRN LDX 88 
6866 PSH LDA BF1+1.X 
6878 STA BF2.X 
6988 CHP 8E0L 
6898 BEO PSV 
6188 INK 
6118 INY 
(129 JMP PSH 
6138 PSV JSR CALCIT 



6146 
6158 



6168 FLP INY 



BCS P4ER 
RT5 



LDA BF1.Y 
CMP 8') 
BEO FRP 
CMP 8E0L 
BEQ P4ER 
BNE FLP 



6178 

6188 

6198 

6288 

6218 

6228 

6236 P4ER SEC 

6248 RTS 

8258 FRP STY RIEHTP 

6268 P4C DEY 

6278 LDA BF1.Y 

6288 CHP 8' C 

8298 BNE P4C 

6389 STY LEFTP 

6318 LDX 8JFF 

6328 LDY LEFTP 

6338 PSR INX 

6346 INY 

6358 CPY RIGHTP 

6368 BEO PST 

6376 LDA BF1.Y 

6186 STA BF2.X 

6396 JHP PSR 

6469 PST LDA 8E0L 



6419 
6428 
6438 
6448 
6458 
6466 
6478 
6488 
6498 



STA BF2.X 
JSR CALCIT 
BCS P4ER 
LDA RIGHTP 
SEC 

SBC LEFTP 
CHP 81 
BEQ P4ER 
LDX LEFTP 



6566 




LDA 


BF2 




6518 




STA 


BF1.X 




6528 




LDA 


BF2+1 




6538 




INX 






6548 




STA 


BF1.X 




6558 




LDY 


RIGHTP 




6568 


P5U 


INX 






6578 




INY 






6589 




LDA 


BF1.Y 




6598 




STA 


BF1.X 




6699 




CHP 


8E0L 




6618 




BNE 


PSU 




6628 




JMP 


PASS4 




6638 


itxmr. 




6648 


UPl 


COL 1 


-DY 82 




6658 




LDA 


CLLl.V 




6668 




JSR 


INCLL 




6678 


ADDDT LDA 8DTLEN 


6688 


INCLL CLC 




6698 




ADC 


LL 




6788 




STA 


LL 




6716 




LDA 


LL+1 




6729 




ADC 


118 




6738 




STA 


LL+l 




6748 




RTS 






6758 










6768 








j 


6778 


CALCIT 






6788 


CALCEX LDY 88 




6798 


CCH 


STY 


TH4 


tsaue for i 


6888 




JSR 


GT2T0K 




6816 




CMP 


8E0L 




6826 




BEO 


CALHD 


jtrg »,/ 


6838 




BCC 


CCA 




6848 


ceo 


RTS 




tSEC=error 


6858 


CCA 


JSR 


HV2FPN 




6866 




LDA 


OPERAT 




6878 




CMP 


8'* 




6888 




BNE 


CCE 




6896 




JSR 


FIGEXP 




6966 




BCS 


CCB 


jtrror 


6918 




JSR 


CLPSBF2 


tcollpase 


6928 




JSR 


FR825T 




6938 




JMP 


CALCEX 




6949 


CCE 


LDA 


TM4 




6958 




CLC 






6968 




ADC 


81 




6978 




TAY 






6988 




JHP 


CCH 


ilook 4 KOI 


6998 


;BQUD 



;»rror 



;trror 



;trror 



7818 CDC STY TH4 

7828 JSR GT2T0K 

7836 CHP 8E0L 

7848 BEO CALAS 

7858 BCC CDA 

7968 CDS RTS 

7878 CDA JSR HV2FPN 

7888 LDA OPERAT 

7898 CMP 8-« 

7188 BNE CDD 

7118 JSR FHUL 

7128 BCS CDB 

7138 BCC CDE 

7148 CDD CHP »7 

7158 BNE CDF 

7168 JSR FDIV 

7178 BCS CDB 

7188 CDE JSR CLP5BFI 

7196 JSR FR82ST 

7288 LDY TH4 

7218 JHP CDC 

7226 CDF LDA TH4 

7238 CLC 

7246 ADC 81 

7256 TAY 

7266 JMP CDC 

7276 : \*Mt\\V\imt B 

7286 CALAS LBV BT^ 

7298 CEG STY TM4 

7399 JSR GT2T0K 

7116 CHP 8E0L 

7326 BEO CDONE 

7338 BCC CEA 

7346 CEB RTS 

7358 CEA JSR HU2FPN 

7368 LDA OPERAT 

7376 CHP 8'* 

7388 BNE CEC 

7398 JSR FAOD 

7488 8CS CEB 

7418 BCC CED 

7428 CEC CMP 8'- 

7438 BNE CEB 

7448 JSR FSUB 

7458 SCS CEB 

7468 CED JSR CLP5BF2 

7478 JSR FR82ST 

7488 LDY TM4 

749* JHP CEG 

7588 CDONE CLC ; ok 

7518 RTS ' 

7538 Gl 2l~k LDA BF2. Y " rm '" 
7548 CMP 8-8 
7558 BEQ GBA 
7568 CMP 8E0L 
7578 BEO GBB 



JSEC =error 



; error 



terror 



;done? 



7588 GBC SEC 

7598 RTS 

7688 GBA INY 

7618 LDA BF2,Y 

7628 CMP 8E0L 

7638 BEQ GBC 

7648 STA FTOK 

7658 INY 

7668 LDA BF2.Y 

7671 STA OPERA i 

7688 CHP 8E0L 

7698 BEO GBB 

7788 INY 

7711 LDA BF2.Y 

7728 CHP 8E0L 

7738 BEQ GBB 

7748 CHP 8'8 

7758 BNE GBC 

7768 INY 

7776 LDA BF2.Y 

7788 CHP 8E0L 

7798 BEO GBC 

7888 STA STOK 

7818 GBB CLC 

7626 RTS 

7836 " 

7848 HV2FPN L( 

7858 JSR STFLPTR 

7868 JSR FLB8P 

7878 LDX STOK 



terror 



tdone 



JA=eol If done 



70 



AUGUST 1988 * A.N.A.L.O.G. COMPUTING 



7881 
78)8 
7)88 
7*18 



JSR 5TFLPT« 
JSR FLD1P 
RTS 



■ CUB M.H.mj-H 
7)28 STFLPTR LDO STLO,X 



STA FLPTR 

LDA STHI.X 

STA FLPTR+1 
RTS 



7)38 
7)48 
7»5B 
7)68 

7)78 il HIH Ml lH 
CLPSBF2 IT» II 



7)88 
7))8 
8888 
8818 
8828 
8838 
8848 



CLC 
ADC 82 
TOY 
CLC 

ADC tt3 
TAX 



TH4 



8858 CF1 LDA BF2,X 
8868 STA BF2,Y 
887B CMP 8EOL 
8888 BCD CF2 
88*8 INY 
8188 INX 
BUS JMP CF1 
8128 Cr2_RTS__ 

8i3e mmiitma a 

8148 FIGEXP LDX FTOK 
6158 JSR STFLPTR 
6168 JSR FLDBP 
8178 JSR L0G18 
8188 BCC FIA 
81*8 FIB SEC 
8288 RTS 
8218 FIA LDX STOK 



JSR STFLPTR 
JSR FLD1P 
JSR FHUL 
BCS FIB 
JSR EXP1B 
BCS FIB 
CLC 
RTS 



8228 
8238 
8248 
8258 
8268 
8276 
8288 
6258 
BIBB 



8128 GTCLRH JSR 

8338 BCS GRX 

6348 JSR FINCNU 

6358 BCC GRH 

8368 GRX RTS I* 

8378 GRH LDY HLDY 

8188 INY 

8KB JSR GET2CH 

8488 BCS GRX 

8416 JSR FINRNU 

6428 LDY HLDY 

E Fi TOftfOT'* 

8468 LDX 02 

8478 FCA CMP AS26.X 

B48B BEQ FCC 

84)6 BEX 

8588 BPL FCA 

8S1B BMI FCER 

8628 FCC LDA 1126, X 

6538 STA TM3 

S64B LDA HLDS 

B5S8 CMP »' [ 

SS6B BCS FCER 

8576 CMP 8' A 

8568 BCS FCB 
65)6 FCER SEC 

8668 RTS 
8618 FCB SEC 

S62B SBC 8'A 

8638 CLC 

8648 ADC TM3 

8658 STA COLNU 

8668 CMP 864 

8678 BCS FCER 

8688 RTS 

86*8 ii-EoonaaE 

8788 6ET2CH 
8718 



)27B 
)288 

»2»e 

8388 
SUB 
)32B 
)I38 
S34S 
8358 
8368 
8378 
8388 
8388 
8488 
8418 
8428 
843S 
8448 
8458 
8468 
8478 
8488 
8488 
85BB 
851B 
8529 
8S3B 
8548 
8558 
8568 
»»76 
fIBB 
8586 
8*68 
8*16 
8*2* 
8*3* 
8*46 
8*58 
»*** 
8*78 



INX 

BNE COLAPS 

CPFRTS 

i l J,M1 8J MJ J Hmi. l!1 Ji l 
ADD2SP VBW 5TS 
ASLP LDA BF1,X 

STA BF1+2.X 

DEX 

CPX TM 

BED ASLP 

BCS ASLP 

INC STR 

INC STR 

RTS 

fIBWIFS >BF1 

STA INBUF+1 
LDA 8 <BF1 
STA INBUF 
RTS 
T RCF .PS 1 

RN^R^^SSf ,rt t. ,ri 

LDX a <srobt isava root 

LDY 11 >SRBOT 

JSR FSTBR 

LDX It <SFPN 

LDY 8 >5FPN 

JSR FLDBR IN to frB 

JSR FDIV iN/rt 

LBN It <S»O0T 

LBY 8 >SROOT 

JSR FLD1R Jris. root 

JSR FADD | add rts 

LBX « <HALF 

LBY ■ >HALF 

JSR FLD1R 

JSR FHUL JX .5 

RTS 
SFPN .88 • 
SROOT .DS B 



1B26 
1B3B 
1B4B 
1BSB I 
1B66 IN 



DEX 

STX XPBS 

■NE INHAIN 



INPRC LBA INTABL.Y 
1678 STA INJSR+1 
1686 LBA INTABH.Y 
1888 STA INJSR+2 
1188 INJ5R JSR 8FFFF 
1118 JMP INHAIN 
1126 1 

1138 INDON LDY «114 
1148 INOUT DEY 



l*rror 



jcol n 

18-63 



aaaaa 



ClTLOA BF1.Y 

CMP ItEOL 
8728 BEQ GERR 
8738 STA HLDF 
S74B INY 
6758 LDA BF1,Y 
8766 CMP aEOL 
8778 BEQ GERR 
B7SB STA HLDS 
8788 STY HLDY 
6888 CLC 
6618 RTS 
8828 GERR SEC 

8838 RTS 

8848 ;FtXE3XXEE 

8858 FINRNU LDA HLDF 

8868 JSR GETDEC 

8S7B BCS FRER 

M88 STA ROHNU 

8B88 LDA HLDS 

8888 JSR GETDEC 

8)18 BCS FRER 

6)28 TXA 

8)38 CLC 

8)48 ADC ROHNU 

8)56 TAX 

6)68 DEX 

8)78 CPX B64 

8)88 BCS FRER 

88)8 STX ROHNU 

)8BS CLC 

)B18 RTS 
8828 FRER SEC 

8839 RTS 

)648 ; 6H»B j T-mi.g Ma 

)B58 GETDEC LDX a) 
)868 DECS CMP DECN.X 
)678 BEQ DECA 
8866 DEX 
88)8 BPL DECB 
8188 SEC 
8118 RTS 
8128 DECA LDA DECK, X 
8138 CLC 

8178 FRBX JSR STFLPTR 

)188 JSR FSTBP 

818B RTS 

)28B l UillHJHa ix=b«9 » = d«s 

8216 I UStS tM3 

8228 COLAPS LDA BF1.X 

)23B STA BF1.Y 

)248 CMP »EOL 

8258 BEQ CPF 

8268 INY 



QZED 



LISTING 6: ASSEMBLY 

BIBB l saw*8DlBCALC.P T5 

ilia qzceskixe: 

6129 DRHIN LDA BB 

8138 STA TH1 

S14B TAY 

6158 TAX 
6168 BIT STX TH2 

8178 LDX TM1 

6188 LDA THINL.X 

8198 CLC 

6299 ADC 82 

621B STA L 

822B LDA TMTXH.X 

B23B ADC 88 

8248 STA L+l 

S258 LDX TM2 
8268 DRLP LDA STRING, X 

8279 JSR AS2IC 

8286 CPX XPOS 

6288 BNE DRSC 

BIBB EOR 8*88 
6319 DRSC STA CL1.Y 

8328 INX 

8338 INY 

634B CPY 838 

6358 BNE BRLP 

8368 LDY 86 

6378 INC TM1 

BI86 LDA TM1 

83)8 CMP 83 

6488 BNE DIT 

■418 RTS 

8428 i l T MsJM^m aEHHin 

6438 GAKEY TdA CONSOL 

8448 CMP 86 

B458 BNE GCH 

8468 PLA 

B47B PLA 

6488 LDA 8E0L 

84)6 STA STRING 

8596 LDA 88 

B51B STB EDIT 

B528 STA SPFLG 

6538 SEC 

8548 RTS 

6558 GCH LDA CH 

8568 CHP 8*FF 

8578 BED GAKEY 

6588 JSR GNKEY 

85)9 LDX XPOS 

B688 RTS 

6618 iHJiiiiiUuinD 

6628 INTUT ™R MYrSTR 

B63B INPUT2 LDA 88 

8648 STA XPOS 

8658 INHAIN JSR DRHIN 

6669 JSR GAKEY 

B67B LDX XPOS 

8688 LDY EDIT jtdit nod*? 

B68B BNE ENTS lyas 

9796 LDY SPFLG ICOHd «od*? 

B71B BNE ENTS |yas 

8728 LDY 84 |Ck 4 tol * 

6736 IELP CHP ENKEY.Y [cursor keys 

8748 BEQ INEN 

B75B DEY 

676B BPL IELP 

6778 BMI SESC 

B78B INEN STA CDIR 

67)8 CHP 8E0L 

9008 BNE INDON 

6818 STY CDIR 

6828 JMP INDON 

6836 ENTS CHP 8E0L 

6848 BNE SESC 

665B JMP INDON 

8868 SESC CMP 827 IESCT 

887B BNE INEXT 

6888 JSR GAKEY 

88)8 CHP 8E0L 

8)96 BEQ INDON 

8)18 JMP INOWR , , 

6)28 INEXT LDY 812 Itast special 

8)38 IN1LP CMP INSPC.Y 

6)48 BEQ INPRC 

8)58 DEY 

8)69 BPL IN1LP 

6)78 INOVR STA STRING, X 

6)89 INX 

B))B STX XPOS 

1BBB CPX 8114 

1818 BCC INHAIN 



1156 LDA STRING, Y 




1166 CHP 8*26 




1176 BEQ INOUT 




1168 LDA 8E0L 




1188 INY 




12BB STA STRING, Y 




121B STY STB 




1226 LDA 86 




1238 STA EDIT 




1248 CLC 




1258 RTS 




1268 • QBVBJBjeTjT>ITX] 




127B ZAPST JSR CLR5TR 




12BB LDA 86 




12)6 STA XPOS 




1386 RTS 




I31B iF.rjBHrMJ 




1128 INDEL LDX XPOS 




1338 BEQ INDO 




1340 BEX 




1358 LDA 8*29 




1368 STA STRING, X 




1378 STX XPOS 




1388 INDO RTS 




1488 INLEFT- LDX XPOS 




1418 BEO INDO 




1428 DEX 




1438 STX XPOS 




1448 RTS 




1458 iBJJiUuU 
1466 iNRfTDX XPOS 




1476 CPX 8113 




I486 BCS INDO 




14)8 INX 




1598 STX XPOS 




1518 RTS 




ill. 1 flWIHHKl.OS 




1548 INCTD LDA STRING+l.X 




1556 STA STRING, X 




1568 INX 




1576 CPX 8*7A 




1568 BNE INCTD 




15)8 RTS 




iISS iBISOT™ 




1626 ININD LDA STRING, X 




1638 STA STRING+l.X 




1648 DEX 




1656 CPX XPOS 




1666 BPL ININD 




167B INX , 




1688 LDA 8*28 




16)8 STA STRING, X 




1788 STA STRING+11* 




1716 RTS 




1728 iFliMimin 
17JB impTBA XPOS 




174B SEC 




1758 SBC 838 




1766 BPL INST 




1778 CLC 




178B ADC 8114 




17)8 IN5T STA XPOS 




1899 NTS 




1818 iPJiUfU'liI 

1.128 INDMM LDA XPOS 




1838 CLC 




1648 ADC 838 




1858 CHP 8114 




1868 BCC INST 




1878 SEC 




1888 SBC 8114 




illl ,».,.i'J?i.iKi\m.imu,u 




illl &SSmfTif m '""" 




1)26 LDA XPOS 




1)39 CHP 838 




1)48 BCC INMD 




1)58 LDX 838 




1)68 CHP 876 




1)78 BCC INHD 




1)88 LDX 876 




18)8 INHD STX XPOS 




2688 RTS 








2828 ININLNJ5R INHOD 




2836 LDA 837 




2848 STA TH3 




2856 INLNL JSR ININS 




2666 DEC TM3 




2876 BPL INLNL 




2688 RTS 




7B)e irrimBtiiiJ 




2188 iWdLLN JSR INHOD 




2116 LDA 837 




2128 STA THI 




2138 INLND JSR INCTDL 




2148 DEC THI 




215B BPL INLND 








2188 COMMODE LDA 84 




21)8 STA DLIC+1 




2288 LDA 81 




2218 STA SPFLG 




2228 JSR INPUT 




2238 BCS CMOUT 




224B JSR L62UP 




2258 CHAOK LDX 88 1 COWMnd 


8 


2268 LDA 8 <CHTAB 




2276 STA L . 




2288 LDA 8 >CHTAB 




22)B STA L+l 




2388 CMBG LDY 88 




2318 CH5T LDA CL1 , V 
2326 BEQ COMMODE 




2336 CHP STRING, Y 




2348 BNE CUI 




2I5B INY 




2368 CPY 83 




2378 BNE CHST 




2388 I 




23)8 LDA COHL.X 




2488 STA CMJP+1 





A.N.A.L.O.G. COMPUTING' AUGUST 1988 



71 



1418 

2428 

2438 

2448 

2458 

2468 

2478 

2468 

24)8 

2588 

2518 

2528 

2538 

2548 

2558 

2568 

2578 

2588 

2558 

2688 

2618 

2628 

2638 

2648 

2658 

2668 

2678 

2688 

2698 

2788 

2718 

2728 

2738 

2748 

2758 

2768 

2778 

2788 

2758 

2888 

2818 

2828 

2838 

2848 

2858 

2868 

2678 

2888 

28*8 

2)88 

2918 

2*28 

2*38 

2*48 

2*58 

2*68 

2*78 

2*86 

2**8 

3888 

3818 

3828 

3838 

3848 

3858 

3868 

3878 

3888 

38*8 

3188 

3118 

3126 

3138 

3148 

3158 

3168 

3178 

3188 

31*8 

3288 

3218 

3228 

3238 

3248 

3258 

3268 

3278 

3288 

32*8 

3388 

3318 

3328 

3338 

3348 

3358 

3368 

3378 

3388 

33*8 

3488 

3418 

3428 

3438 

3448 

3458 

3468 

1478 

3468 

3498 

3588 

3518 

3528 

3538 

3546 

3558 

3568 

3578 

3588 

35*8 

3688 

3618 

3628 

3638 

3648 

3658 

3668 

3678 

3688 

36*8 

3788 

3718 

3728 

3738 

3748 

3758 

3768 

3778 

3788 

37*8 



LDA COMH.X 
STA CMJP+2 
J5R CLRTXT 

CHJP JSR $FFFF 

CH8UT LDA KB 

STA DLIC+1 
STA SPFLG 
JMP BFLP 

CU3 INX 

LDfl L 
CLC 

ADC B3 

STA L 

BCC CHBG 

INC L + l 

BNE CHBG 

SHHCRI LDfl SCOL 
LDX as 

XGZ SEC 

SBC 826 

BMI XGY 

INK 

BNE XGZ 
XGY PHA 

TXA 

CLC 

ADC 8$A1 

STA 5CMEM+19 

PLA 

CLC 

ADC aSBB 

STA SCMEH+2B 

LDX SROU 

INX 

TXA 

LDX as 

XGU SEC 

sbc aie 

BMI XGU 
INX 

BNE XGU 
XGV PHA 
TXA 
CLC 

ADC a$»e 

STA SCHEH+21 

PLA 

CLC 

ADC a**A 

STA SCMEM+22 
RTS 

■■UiHiUHiHC 

PRNT JSR CLRTXT 
LDA B'P 
STA FNAME 
LDA a' ! 
STA FNAHE+1 
LDA 8EOL 
STA FNAME+2 
LDA a >PRITHS 
LDX a <PRITMS 
PRNTIT LDY U8 
STY CPOS 
JSR PRNTTH 
JSR PRHS1 
JSR STCRS 
JSR PRHS2 
JSR STCRS 
LDA COLF 
STA TM 
LDA COLS 
SEC 

SBC COLF 
BMI PERRR 
LDA ROUS 
SEC 

SBC ROMF 

BPL PROK 

PERRR LDY 8141 

PERRA JSR DSKERR 

JMP HM3 

PROK CLOSE 2 
LDX 8S28 
LDA B3 
STA ICCOM, X 
LDA a >FNAME 
STA ICBAH; X 
LDA a <FNAME 
STA ICBAL.X 
LDA ae 

STA AUX2,X 

LDA as 

STA AUX1.X 

JSR CIOV 

BMI PERRA 
PXD LDX TH 

LDA COLH.X 

STA GMX 

LDA ROHF 

JSR LOCCEL 

BCS CMTE 

LDY ai 

LDA CLLJ.Y 

STA FORMAT 

LDY 83 

LDA CLLJ.Y 

BPL PXF 

JMP ISERR 
PXF AND 83 

BEO PXA 

JMP ITSAN 
PXA LDY 82 

LDA CLL),Y 

TAY 

JSR ADDDT I 

LDA 8EOL 

STA STRING, Y 
PXC DEY 

BMI PXB 

LDA CLLJ.Y 

STA STRING, Y 

JMP PXC 
PXB LDA 8 <STRING 

STA IL 

LDA 8 > STRING 

STA IL+1 

JSR FRMTXT 
PXE JSR SNDOUT 

INC TH 

LDA TM 

CMP COLS 

BEO PXD 

BCC PXD 

LDA COLF 

STA TH 

JSR SNDEOL 



jcurs. index 



ilst col 

jchk cell range 



j range err 



;curr col 
;get width 



jenpty 



MJJJ'lt] 



Itext 
;a/F 



jdo nxt col 



;snd eol 



3888 


INC romf inext row 


3818 


LDA ROHF 




3828 


CMP ROMS 




3638 


BEQ PXD 




3848 


BCC PXD 




385S 


CLDSE 2 




3868 


RTS iBMiIJ 


387S j| 


■Mirninnniiiw 

HTE JSR SPLBF 




3888 CI 




38*8 


JMP PXE 




3988 ;| 
3918 51 


in,vmiiT.\ 




4DEOL LDA 811 




3928 


LDX 8S28 




3938 


STA ICCOM.X 




3948 


LDA 88 




3958 


STA ICBLL.X 




3968 


STA ICBLH.X 




3*78 


LDA 8$9B 




3*88 


JSR CIOU 




3**8 


BMI LSERR 




4888 


RTS 




4818 ;W4lFK'l'l«44II 
4828 SNDOUT LDA 811 






4838 


LDX 8S2B 




4848 


STA ICCOM, X 




4858 


LDA GMX 




4868 


STA ICBLL.X 




4878 


LDA 88 




4888 


STA ICBLH.X 




4898 


LDA 8 >LBUF 




4188 


STA ICBflH, X 




4118 


LDA S <LBUF 




4128 


STA ICBAL.X 




4138 


JSR CIOV 




4148 


BMI LSERR 




4158 


RTS 




4178 LSERR PLfl 




4188 


PLA 




4198 


JMP GENER 




4288 ;ld*K»l'k«ni|l 
4218 SPLBF LDX 8S7F 




4228 


LDA 8$28 




4238 SL9 STA LBUF.X 




4248 


DEX 




4258 


BPL SL» 




4268 


RTS 








4268 I 


SERB JSR SPLBF 




4298 


LDY 84 




4388 ISA LDA CERR.Y 




4318 


STA LBUF.Y 




4328 


DEY 




4338 


BPL ISA 




4348 
4358 ;l 
4368 I 


JMP PXE 




TSAN CMP 81 




4378 


BNE ITSAF 




4388 


JSR ADDDT 




43*8 


LDX LL 




4488 


LDY LL+1 lEEB 


4418 ITSG JSR FLD8R 




4428 


JSR FASC 




4438 


JSR FRMNUH 




4448 


JMP PXE 




4458 )[ 


anatM*»Psn 




4468 ITSAF LDY 8 




4478 


LDA CLLJ.Y 




4488 


TAY 




4498 


JSR ADDDT 




4588 


TYA 




4516 


SEC 




4528 


SBC 86 




4538 


CLC 




4548 


ADC LL 




4558 


TAX 




4568 


LDA LL+1 




4578 


ADC as 




4588 


TAY 




4598 


JMP ITSG 




4668 ,-llTiKlVm 




4618 LIST JSR ST2BF1 




4628 


JSR FINARG 




4638 


JSR GTFILE 




4648 


JSR CHKDEV 




4658 


BCC LDOK 




4668 


JMP DEUERR 




4678 LDOK JSR FILEXST 




4688 


BCC FILOK 




4698 


JMP HOME 




4788 FILOK JSR CLRTXT 




4718 


LDA 8 >LSMES 




4728 


LDX 8 <LSMES 




4738 


JMP PRNTIT 




4748 J[ 


fiM'M^SKM'JJ 




4758 ;[ 


Mtlg 0"cpy 1=mou 




4768 ;[ 


:opg a block verb 




4778 CI 


)PY JSR CLRTXT 




4788 


LDA 8 7CPYMES 




4798 


LDX 8 <CPYHES 




4888 


LDY 88 




4818 


STY CMFLG 




4828 Jl 


1CPY STY CPOS 




4838 


JSR PRNTTH 




4848 


JSR PRMS1 




4658 


JSR STCRS 




4868 


JSR PRMS2 




4878 


JSR STCRS 




4868 


JSR PRMS3 




4898 


JSR STCRS 




4968 ;C 




H 


4918 


LDA COLS 




4928 


CMP COLF 




4938 


BCS CLOK 




4*48 C! 


>ER JMP PERRR 




4*58 CI 


.OK LDA ROUS 




4*68 


CMP ROHF 




4*78 


BCC CSER 




4**8 


a WW^ m 


i!JJH 


5888 


CMP COLF 




S818 


BNE LOHR 




5828 


LDA ROHT 




5838 


CMP ROHF 




5848 


BEQ CSER 




5858 L(l 


MR LDA COLT 




5868 


CMP COLS 




5878 


BNE CKOK 




5888 


LDA ROHT 




5898 


CMP ROMS 




5188 


BEO CSER 






ra'«<,wjy 




5128 CK 


OK LDA COLS 




5138 


SEC 




5148 


SBC COLF 




5158 


STA DM4 




5168 


STA DM2 




5178 


LDA ROUS 




5188 


SEC 





51*8 


SBC 


ROHF 


5288 


STA 


DM5 


5218 
5228 


itrignn 


5238 


LDA 


CDLT 


5248 


SBC 


COLF 


5258 


STA 


COFST 


5268 


SEC 




5278 


LDA 


ROHT 


5288 


SBC 


ROHF 


52*8 


STA 


ROFST 


5388 


JSR 


CHKFSD JA =typ inc 


5318 


ASL 


A 


5328 


TAX 




5338 


LDA 


INCTAB.X 


5348 


STA 


IMCRES+1 


5358 


LDA 


INCTAB+l.X 


5368 


STA 


INCRES+2 


5378 


JSR 


IUCRS 



5388 CPY1 LDA COLF 
53*8 STA DM6 
5488 LDA COLT 
5418 STA DM7 
5428 CPY5 LDA ROUT 
5438 JSR STRAD 
5448 CPY2 LDY 88 



5458 
5468 
5478 
54BS 
5498 
5588 
5518 
5528 



LDA CLD.Y 
CMP 8$FF 
BEQ NOEN 
CMP DM7 
BEQ FUL 
BCS NOEN 
JSR UP1COL 
JMP CPV2 
5538 FUL LDX DM7 
5548 LDA ROHT 
6558 JSR DELTCL 
5568 NOEN LDA LL 
5578 STA IL 
5588 LDA LL+1 
5598 STA IL+1 
5688 LDA ROHF 
5618 JSR STRAD 



Idest 
;get add 
j see if MT 



5628 


CPN 


'3 LDY 88 


jchk source 


5638 




LDA CLLJ.Y 




5648 




CMP 8$FF 




5658 




BEQ INCHES 


ino cell 


5668 




CMP DM6 


IC01? 


6678 




BEO GT1 




5688 




BCS INCRES 


jno cell 


5698 




JSR UP1COL 




5788 




JMP CPY3 




5718 




5728 


Gfl 


LDA » >BF1 




5738 




STA JL + 1 




5748 




LDA 8 <BF1 




5758 




STA JL 




5768 




LDY 82 




5778 




LDA CLLJ.Y 




5788 




CLC 




5798 




ADC 8DTLEN 




5888 




TAY 




5818 




DEY 




5828 




STA LENG 


; 4 Move 


5838 




STY GMX 




5848 


CPY4 1 




5858 




STA CJLJ.Y 




5868 




DEY 




5878 




CPY 8*FF 




5888 




BNE CPY4 




58*8 




LDA DM7 


j new col 8 


5988 




STA BF1 




5918 




LDA IL 




5*28 




STA LL 




5*38 




LDA IL+1 




5*48 




STA LL+1 




5*58 




LDA CMFLG 




5968 




BEQ NOCHG 




5978 




JSR MVPARS 




5988 


NOCHG 




5*98 




INY 




6888 




STY LENG 




6818 




JSR MOUUP 




6828 




LDA ROHT 




6838 




JSR UPRAD 




6848 




LDY GMX 




6858 


CPY6 1 




6868 




STA CILJ.Y 




6878 




DEY 




6868 




CPY 8$FF 




68*8 




BNE CPY6 




6188 


INCRE! 


6118 




BCS CFIN 




6128 




JMP CPY5 




6138 


CFIN . 




6146 




JSR REFSCR 




6158 




JSR IUCRS 




6168 




CLC 




6178 




RT5 




6188 
6198 


RTDN ] 


6288 




INC DM6 


(next col 


6218 




DEC DM4 




6228 




LDA DH4 




6238 




CMP 8SFF 




6248 




BNE RBX 




6258 


RBZ 


INC ROHT 


j next row 


6268 




INC RBUF 




627B 


RRR 


DEC DM5 




6288 




LDA DH5 




6298 




CMP 8SFF 




6388 




BNE RBY 




6318 




SEC 


J done 


6328 




RTS 




6338 


RBV 


LDA CDLF 




6348 




STA DM6 




6358 




LDA COLT 




6368 




STA DM7 




6378 




LDA DM2 




6388 




STA DM4 




6398 


RBX 


CLC 




6488 




RTS 


jkeep going 


6418 


1 






642B 


RTUP I 




6438 




INC DM6 




6448 




DEC DM4 




6458 




LDA DM4 




6468 




CMP 8SFF 




6478 




BNE RBX 




6488 




DEC ROHT 




6498 




DEC ROHF 




6588 




JMP RRR 




6518 


1 







6528 LFDN DEC DM7 
6538 DEC DM6 
6546 DEC DM4 
6558 LDA DM4 
6568 CMP 8SFF 
6578 BNE RBX 
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6586 




BED 


RBZ 






65»6 J 
6668 ) 


(heck source, end Adest. cell 


6618 CHKFSD LDA ROUT 




6626 




CMP 


ROHF 




6638 




BHE 


TBFH 




6648 




lda 


COLT 


;a,e 


6658 




CHP 


COLF 




6668 




BME 


UAE 




6678 VER 


PLA 




j error 


6688 




PLA 






6658 




J MP 


PERRR 




6788 VAE 


BCC 


VEE 


;e 


6718 




LDA 


COLS 


;a 


6728 




SEC 






6718 




SBC 


COLr 




6746 




CLC 






6756 




ADC 


COLT 




6768 




STA 


COLT 




6776 




CMP 


864 


J 8-63 


6768 




DCS 


VER 




6798 




LDA 


COLS 


J switch 


6866 




PHA 






6516 




LDA 


COLF 




6626 




STA 


COLS 




6636 




PLA 






6648 




STA 


COLr 




•856 




LDA 


■1 


;lfdn 


6868 




CLC 






6878 




ITS 






6888 UEE 


LDA 


M 


;rtdn 


68*8 




CLC 






6188 




RTS 






6*18 TBFH ICC VEE 




6*28 




LDA 


ROUS 




6*38 




SEC 






6*48 




SBC 


ROHF 




6*58 




CLC 






6*68 




ADC 


ROHT 




6*78 




STA 


ROHT 




6*88 




CHP 


864 




6**8 




BCS 


VER 




7888 




LDA 


ROUS 


jswitch 


7818 




PHA 






7828 




LDA 


ROHF 




7838 




STA 


ROUS 




7848 




PLA 






7858 




STA 


ROHF 




7868 




LDA 


82 


jrtup 


7878 




CLC 






7888 




RTS 






78*8 1 
7188 I 










NCTAB 


HORD RTDN 


7118 




.HORD LFDN 




7128 




.HORD RTUP 




7118 I 


■TTiW. 




7148 PBM53 LDA 




7156 




STA 


ASAV 




7168 




LDA 


8 >CKES3 


7178 




LDX 


tt <CKES3 


7186 




LDY 


M 




71*8 




JMP 


PRHA 




7288 ; 


LEsa 




7218 HOVEB JSR CLRTXT 


7228 




LDA 


81 




7238 




STA 


ASAV 




7248 




STA 


CHFLG 




7258 




LDA 


» >HOVHES 


7266 




LDX 


St <HOVMES 


7278 




LDY 


ne 




7288 




JMP 


JHCPY 


1 JHP 


in2 cpy 


72*8 ; 


re 


dssign cell values 




7388 ] 


if errt 

dnO . <Jm 


r = cha 

aseHH 


iged t 


o eolH 


7318 J 






7328 K 


VPflRS LDY 






7338 




LDA 


BFl.Y 




7348 




CHP 


8" = 




7358 




BEQ 


JAA 




7366 J 


M 


RTS 




jquit 


7378 J 


t>a 


INY 






7388 




CPY 


SHX 


;nax len 


73*8 




BCS 


JAB 


jend! 


7488 




LDA 


BFl.Y 




7416 




CHP 


O'D 




7428 




BCS 


JAA 


;nxt 


7438 




CHP 


tt'A 




7448 




BCC 


JAA 




7458 




STY 


Y* 


;»et cell 


7468 




JSR 


GTCLRH 




7478 




BCC 


JAC 




7488 J 


an 


LDY 


Y» 




74*8 




BHE 


JAA 




7588 J 


ac 


LDA 


COLNU 




7518 




CLC 






7528 




ADC 


COFST 


;col offset 


7538 




STA 


COLNU 




7546 




CMP 


864 




7558 




BCS 


JAB 


i«rr 


7568 




LDA 


ROHNU 




7578 




CLC 






7588 




ADC 


ROFST 


;row offset 


75*8 




STA 


ROHNU 




7668 




CHP 


864 




7618 




BCS 


JAD 


;err 


7528 




LDY 


Y» 




7638 ; 
7648 






7658 




LDA 


COLNU 




7668 . 


M 


CHP 


N26.X 




7676 




BCS 


JAF 




7688 




DEX 






76*8 




BPL 


JAE 




7768 . 


OF 


PHA 






7718 




LDA 


0526, X 
BFl.Y 




7726 




STA 




7736 




PLA 






7746 




SEC 






7756 




SBC 


N26,X 




7768 




CLC 






7776 




ADC 


865 




7786 




INY 






77*6 




STA 


BFl.Y 




7688 




INC 


ROHNU 




7616 




LDA 


ROHNU 




7628 




LDX 


8* 




7838 . 


an 


CMP 


DECK, X 




7846 




BCS 


JAG 




7858 




DEX 






7868 




BPL 


JAH 




7876 . 


Mi 


PHA 






7668 




LDA 


DECN.X 




7898 




INY 






7*88 




STA 


BFl.Y 




7*18 




PLA 






7528 




SEC 






7*38 




SBC 


DECM.X 




7*48 




TAX 






7*58 




LDA 


DECN.X 




7*68 




INY 









7*78 


STA 


BFl.Y 


7*88 


JMP 


JAA 


7**8 


UJ4MIJI 




8888 


IECALC LDA 88 


8818 


STA 


ROHNU 


8828 


STA 


COLNU 


8838 


LDA 


RCFLG 


8648 


BNE 


BYC 


8858 
8868 


ifW 


RARITH 


8678 


INC 


COLNU 


8888 


LDA 


COLNU 


88*8 


CHP 


864 


8188 


BCC 


IG 


8118 


LDA 


80 


8128 


STA 


COLNU 


8138 


XNC 


ROHNU 


8148 


LDA 


ROHNU 


8158 


CHP 


864 


8168 


BCC 


IG 


8178 


IYR JSR 


REFSCR 


8188 


JHP 


IVCRS 


81*8 


GUGEEE 
IYC JSR 




8288 


RARITH 


8218 


INC 


ROHNU 


8228 


LDA 


ROHNU 


8238 


CHP 


864 


6248 


BCC 


BYC 


8258 


LDA 


80 


8268 


STA 


ROHNU 


8278 


INC 


COLNU 


8288 


LDA 


COLNU 


82*8 


CHP 


864 


•388 


BCC 


BYC 


8318 


BCS 


BYR idone 


8328 






8338 


JARTTTXbA 


8348 


LDX 


COLNU 


8358 


STA 


TA1 


8368 


5TX 


TA2 


8378 


JSR 


LOCCEL 


8388 


BCC 


RBD 


83*8 


IBFF JHP 


RBGH (none 


8488 


1BD LDA 


LL 


8416 


STA 


TA3 


8428 


LDA 


LL+1 


8438 


STA 


TA4 


6448 


LDY 


83 


8458 


LDA 


CLLJ.Y 


6468 


■Ml 


RBFF J err 


6478 


CHP 


82 jfuncT 


8488 


BNE 


RBFF J no 


84*8 


DEY 




6588 


LDA 


ILLJ.Y 


8518 


SEC 




8528 


SBC 


86 


8538 


TAY 


jcnd of F 


8548 


LDA 


8E0L 


8558 


STA 


STRING, Y 


8568 


JSR 


ADDDT (UP 4 


8578 


RRJ DEY 




8588 


BMT 


RRB 


8598 


LDA 


CLLJ.Y 


8688 


STA 


STRING, Y 


B618 


JHP 


RRJ 


8628 


RRB JSR 


TRYFNC 


8638 


LDA 


TA3 


8648 


STA 


LL 


8658 


LDA 


TA4 


6668 


STA 


LL+1 


8678 


LDY 


82 


8688 


LDA 


ILLJ.Y 


86*8 


SEC 




8788 


SBC 


82 


8716 


CLC 




8726 


ADC 


LL 


8738 


STA 


FLPTR 


6748 


LDA 


LL+1 


8756 


ADC 


aa 


8766 


STA 


FLPTR+1 


8776 


JSR 


F5T8P 


8788 


RBCH LDA TA1 


87*8 


STA 


ROHNU 


8888 


LDA 


TA2 


6818 


STA 


COLNU 


8828 


RTS 




8838 


itirsraninr.Ha 


8848 


DELETE JSR CLRTXT 


8858 


LDA 


8 JDELHS 


8868 


LDX 


8 <DELHS 


8878 


LDY 


86 


8888 


STY 


CPOS 


88*8 


JSR 


PRNTTH 


8*68 


JSR 


PRMS1 


8*18 


JSR 


STCRS 


8*28 


JSR 


PRMS2 


8*36 


JSR 


STCRS 


8*48 


LDA 


COLS 


89S8 


CHP 


COLF 


8*68 


BCC 


KER 


8978 


LDA 


ROHS 


8988 


CHP 


ROHF 


8998 


BCS 


DLC 


9888 


KER JHP 


PERRR JERR 141 


9818 


;now delete 


9828 


DLC LDA 


COLF 


9838 


STA 


COLT 


9848 


DLB LDX 


COLT 


*858 


LDA 


ROHF 


5868 


JSR 


LOCCEL 


5878 


BCS 


DLA 


5888 


LDA 


ROHF 


*858 


JSR 


DELTCL 


5188 


DLA INC 


COLT 


9118 


LDA 


COLT 


5128 


CHP 


COLS 


9138 


BEO 


DLB 


5148 


BCC 


DLB 


5158 


INC 


ROHF 


5168 


LDA 


ROHF 


5178 


CHP 


ROHS 


5188 


BEO 


DLC 


»1»8 


BCC 


DLC 


»2B8 


JSR 


CLRTXT 


*218 


JSR 


CLRSCN 


5228 


JSR 


REFSCR 


5238 


JHP 


IVCRS idone 


5248 




5256 






8268 


PRNTTH 


STA IL+1 


5278 


STX 


IL 


5288 


STY 


YSAV 


5258 


LDA 


THINL.Y 


5388 


CLC 




5318 


ADC 


82 


5328 


STA 


L 


5338 


LDA 


THINH.Y 


5348 


ADC 


80 


*358 


STA 


L+l 



9368 


LDY 88 


5378 PR1 LDA CID.Y 


9388 


CMP 8E0L 


5358 


BEO PR2 


5488 


STA CLJ.Y 


9418 


INY 


9428 


BNE PR1 


5438 PR2 R- 


5448 !BraMdjM*M 
9458 RETESC JSR GNKEY 


9468 


CHP 8$»B 


9478 


BNE III 


9488 


CLC 


94*8 


RTS 


1588 III CHP 8$1B 


9518 


BNE IIT 


9528 


SEC 


9538 


RTS 


9548 IIT JSR HVCRS J Hove? 


9558 


JHP RETESC 


9568 j 


jU.lJDNJITq 


9578 STCRS LDX CPOS 


9588 


LDA SCOL 


9598 


STA COLF.X 


9688 


LDA SROU 


9618 


STA ROHF.X 


9628 


INC CPOS 


9638 


RTS 


9648 J 




9658 PRM! 8 >CHES1 


9668 


LDX 8 <CHES1 


9678 


LDY 81 


9688 PRHA STY YSAV ;line<t 


9698 


JSR PRNTTH 


9788 


JSR RETESC 


9718 


BCS EOUT 


9728 


RTS 


9738 EOUT PLA jexit 


9748 


PLA 


9758 


JSR CLRTXT 


9768 


RTS 


9778 lUJiUlL-W 

9788 PRHS2LDA 8 >CMES2 


9798 


LDX 8 <CMES2 


9688 


LDY 82 


9818 


JHP PRHA l cheat 


9828 ; 




9838 ; 


lirWai'ijf 1 


9648 ; 




9858 LOCCEL STX COLNU 


9868 


JSR STRAD 


9878 FU LDY 88 


9688 


LDA CLLJ.Y 


98*8 


CMP 8$FF 


5588 


BEO FOE 


9918 


CHP COLNU 


9928 


BED FOF 


9938 


BCC FOG 


9948 FOE SEC 


9958 


RTS 


9966 FOG JSR UP1C0L 


5978 


JHP FU 


9988 FOF CLC 


9998 


RTS 



LISTING 7: ASSEMBLY 



8186 
6118 
8128 
6138 
8148 
8158 
8168 
8178 
8188 
6158 
8288 
6218 
6228 
6238 
6248 

• 258 
8268 
8278 

• 288 
8258 
8388 

• 318 
6328 

• 338 
8348 
8358 
6368 
6378 
8388 
8358 
8488 
6418 

• 428 

• 438 

• 448 

• 458 
8468 

■ 47* 

■ 488 
6458 
8588 
8518 
6528 
6538 

• 548 

• 558 
6568 
8578 
•586 
65*8 

• 688 

• 618 
8628 
8638 
8648 
6658 
8668 
8678 
6688 
8658 
8788 

• 71B 

• 728 

■ 738 
8748 
6758 
8768 

• 778 



!SAVE8D!bcalC.pt6 

Y48L .DS 18 
Y48H .DS 18 
THINL .BYTE <TXTHIN 

.BYTE <[TXTHIN+$28J 

.BYTE <[TXTMIN+$58] 

•BYTE <ITXTHIN+$78] 
THINH .BYTE >TXTHIN 

.BYTE >[TXTHIN+$26] 

.BYTE >[TXTHIN+$5B] 

.BYTE > [TXTHIN+$78] 
CREDIT .SBYTE +$88," B-CaIC Cc>" 

.SBYTE +$86," 1587 AA81 " 

•SBYTE +$88," TYPE! 

.SBYTE +$88," " 

.BYTE EOL 
CREDTF .SBYTE +$88," B-Calc by " 

.SBYTE +$86, "Barry Kolbe S " 

.SBYTE +$88, "Bryan Schappel" 

.SBYTE +$88," " 

■BYTE EOL 

tNTABL .BYTE <ZAPST 

.BYTE <INDEL 

■BYTE <INCTDL 

.BYTE <ININS 

.BYTE <INUP 

.BYTE <INDHN 

.BYTE <INLEFT 

.BYTE <INRT 

•BYTE <ININLN 

.BYTE <INDLLN 

.BYTE <INDO 

.BYTE <INDO 

•BYTE <INDO 
INTABH .BYTE >ZAP5T 

BYTE >INDEL 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



>INCTDL 

>ININS 

JINUP 

>IMDMH 

>INLEFT 

>INRT 

>INIKLN 

>INDLLN 

>INDO 

>INDO 

>INDO 



tNSPC .BYTE $7D,$7E,$FE,$FF 
.BYTE $1C,$1D,$1E,$1F 
.BYTE $»D,$*C,$7F,$»E 
.BYTE $*F 



CHTAB .BYTE "DIR" 

.BYTE "GOT" 1G0T0 cell 
.BYTE "SAV" JSAVE Sheet 
.BYTE "LOA" J LOAD Sheet 
.BYTE "SET" jcross reference 

.BYTE "HID" iset COl HIDTH 
•BYTE "LIS" JLIST to disk 
.BYTE • 

C0HL .BYTE <DIR, <G0TO 
•BYTE <SAVE, <LOAD 
.BYTE <SETREF, <HIDTH 
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.BYTE U.IST 



>DIR, >GOTO 
>SAUE, >LOAD 
>SETREF, >WIDTH 
>LIST 



6789 

• 790 

■see COHH .BYTE 

eoie .byte 

esze .BYTE 

6838 .BYTE 

8840 ; 

8858 SPCKEY .BYTE SIC, SID, S1E, SlF 

■See .BYTE $88,Sl4,S8B 

8878 .BYTE (84,583,580 

(SSe .BYTE $85, 566,587 

8896 .BYTE SBF, 512,518 

89B8 .BYTE $01 

•»*■ > . 

•926 SPECL .BYTE <CU, <CD, <CL, 

■930 .BYTE <HOME, <FORCE 

<KILLC1_, <DELETE 
<COPY, <HOYEB 
<EDITM, <FORHC 
<GLOBAL, <ROMOF 
<RCFLP, <PRNT 
<ARECL 



<CR 



8948 

• 558 
•968 
•»?• 
MS6 

• 996 

laee , 

1616 SPECH .BYTE >CU, >CD, >CL 
IBM .BYTE >I10ME, 7F0RCE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



>CR 



1838 .BYTE >KILLCL. >DELETE 

1848 .BYTE >COPY, >H0UEB 

1656 .BYTE >EDITM, >FORMC 

1868 .BYTE >GLOBAL, >RONOF 

1*78 .BYTE >RCFLP, >PRNT 

1888 .BYTE >ARECL 

1898 SLKEY .BYTE $FF, SFE,SFD,$9F 

1188 .BYTE 59E,S9D,S9C,S9B 

lilt .BYTE $7F,$7E,$7D,S1F 

112* .BYTE *1E,51D,51C,$1B 

1138 ; 

1148 ; Spec ill Text 

11S8 J 

1168 DIRTXT .BYTE "Dll».»",E0L 

1178 FRAME .BYTE "Dll ■ 

1188 ERMES .SBYTE "Error" 

1190 CERR .BYTE "Error" 

1266 BERN .SBYTE "Error i Press 



a ke 



.SBYTE "Pi II I 

.SBYTE " Free!" 

.SBYTE "Recall: : OFF 

.SBYTE " by IRON 



1211 

1226 STT 

1236 

1246 SEC 

1256 

126B 

1278 OROFM .SBYTE "OFFON ■■ 

1288 RCHES .SBYTE "ROM COLUMN" 

1296 ONF .BYTE • 

1366 RCFLG .BYTE • 

1316 CMFLG .BYTE 

1328 KPV .DS 1 IV sav 

1338 CPOS .DS 1 

1348 VI .PS 1 

1350 ; 

1360 TEXTYP .SBYTE 

1378 HUMTYP .SBYTE 

1388 FUNTYP .SBYTE 

13*0 .SBYTE 

1480 i 

1410 DELMS .SBYTE "DELETE I Position CU 

rsor, RETURN", SEOL 

"COPY i Position cur 



43EUL. 
BYTE 
•or, RETURN", SEOL 
1430 MOVMES .SBYTE 
sor, RETURN", SEOL 
1440 CMES1 .SBYTE ■ 



"HOVE I Position Cur 
■upper left of Block 



.SBYTE "Loner right of Bloc 
.SBYTE "Upper left of Best. 



"PRINT: Position cu 



",SE0L 

1450 CMES2 

■".SEOL 

1460 CMESX 

",SEOL 

1478 PRITMS .SBYTE 

rsor, RETURN", SEOL 

1480 LSMES .SBYTE "LIST! Position Curs 

or, RETURN", SEOL 

1498 J 

1S8B FHES .SBYTE "FORMAT Justify L" 

1510 FMA .SBYTE "Dollar 5(D) N" 

1528 FHB .SBYTE "C0WUS C,J N" 

1530 FMC .SBYTE "Dec. places 0" 

1540 YN .SBYTE "NY" 

1550 LCR .SBYTE "LRC" 

1560 SDEC .SBYTE "8123456789" 

1570 ;raw L,C,R 

1588 JSKEY .BYTE 588,528,512 

1598 REPMES .SBYTE "File exists, Repla 

ce? Y/N",SE0L 

1688 j raw 0-9 

1610 NKEY .BYTE $32 . $1F . SlE, 51A 

1620 .BYTE $18, SID, SIB, $33 

1630 .BYTE $35, $30 

1640 FCNT .BYTE 

1650 TORITE .BYTE • 

1660 SETROH .BYTE • 

1670 SETCOL .BYTE • 

1680 CDIR .BYTE • (cursor directn 

169B ENKEY .BYTE EOL, SIC, SlD, $1E,$1F 

1700 EOM .DS 2 jend of nenry 

1710 FRCTXT .BYTE • 

1720 CRSEN .DS 1 

1730 ENDAT .DS 2 

1740 FXS .DS 1 

1750 FXA .DS 1 

1760 STLO .DS 58 

1770 STHI .DS 58 

1780 CTLCHD .BYTE $BB,$62,5l4 

1790 AS26 .BYTE "ABC" 

1880 N26 .BYTE 0,26,52 

1810 DECN .BYTE "0123456789" 

1828 DECH .BYTE 8,18,28,38,48,56 

1838 .BYTE 68,70,80,90 

1848 OPTAB .BYTE "*•/+-" 

1858 FPSTACK . DS 6»58 

1860 ONE .FLOAT 1 

1870 THO .FLOAT X 

1888 HALF .FLOAT .5 

1898 REFTAB .SBYTE "AA" 

1988 .SBYTE "01" 

1910 AIT .DS 256 

1928 SPFLG .DS 1 

1930 COLH .DS 64 

1948 FHCOL .DS 64 

1950 RAD .DS $80 jrow add tabl 

1960 R01 .DS $40 j row data 




continued from page 11 




There are four ways to 

lose a life: I) by getting 

knocked off the train in 

the tunnel, 2) by hitting 

one of the obstacles, 3) 

by running out of 

energy and 4) by 

jumping too soon for 

the diamonds and 

knocking yourself out. 



LISTING 1: BASIC 



QK 1 REM KMXXXKXKXltHXXXXXltMXXXXXXXMXXX 

GT 2 REM ** TRAIN CRAZY Cpt 1) *# 
NG 3 REM ** BY M* 

OA 4 REM ** COLIN FALLER ** 

ZD 5 REH ** M* 

EZ 6 REM ** COPYRIGHT 1988 ** 
MZ 7 REM ** BY ANALOG COMPUTING ** 
QR 8 REM xmxmmkxkxxxxxxxxxxxxxxxxxxxmx 
FH 9 GRAPHICS 8 : GOSUB 10 i GOTO 108 
TX 10 GRAPHICS 2+16: POKE 559, : SETCOLOR 3 
,1,14: SETCOLOR 4, 13, 8 : SETCOLOR 1,8,6:5 
ETCOLOR e,6,2:SETC0L0R 2,9,4 



GT 11 
YM 12 
WT 13 
GY 14 
HO. 15 
NX 16 
MS 17 
LC 18 
EF 19 
YX 20 
LT 21 
34 



»6; 
»6; 
»6; 
«6j 
«6; 
»6; 
»6; 
»6; 
»6; 




COLIN FALLER" 
chara cters 4W' 




? tte:? tt6;" 

? tt6;" reading utlilLl ETJI3 ,, :P0KE 559, 
: RETURN ' 

( 108 RAMTOP=PEEK (106) : RESTORE 2000: STAR 
T=RAMT0P -8 : CH=256 *START 
GH 109 REM MiMiMHiH 

PU 110 FOR I=CH TO CH+727 STEP 7 ! READ Al, 
B1,C1,D1,E1,F1,G1:P0KE I,A1:P0KE I+1,B 
1:P0KE I+2,Cl:P0KE I+3,D1:P0KE 1+4, El 
SA 115 POKE 1+5, Fl: POKE 1+6, Gl : POSITION 1 

3,6:? »6," 39911-1;" ":NEXT I 
UY 120 FOR I=CH+776 TO CH+994 STEP 7 ! READ 
A2,B2,C2,D2,E2,F2,G2:P0KE I,A2:P0KE I 
+1,B2:P0KE I+2,C2:P0KE 1+3, D2 
JA 122 POKE I+4,E2:P0KE I+5,F2:P0KE 1+6, G 
2:P0SITI0N 13,6:? »6;39905-I;" ":NEXT 

KA 130 TEMP=RAMT0P-20:DM=256«TEMP:F0R 1=1 

536 TO 1538: POKE I, 112: NEXT I:BOTTOM=D 

M+2816 
FU 140 FOR U=2 TO 110 STEP 37: RESTORE 400 

SFOR X=U TO U+36:P0SITI0N 13,7:? *t6;ii 

2-X;" ":READ A,B,C,D,E,F,G,H 
JK 145 POKE DM+256K4+X,A:P0KE DM+256*5+X, 



74 



AUGUST 1988 • A.N.A.L.O.G. COMPUTING 
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:; 



TU 



B SPOKE DM+256«6+X,C:P0KE DM+256*7+X, D : 

POKE DM+256*8+X,E+186 

147 POKE DM+256*9+X,F:P0KE DM+256*10+X 

,G:POKE DM+256«11+X,H 

156 POKE DM+256*4+X+lll,A:P0KE DM+256* 

5+X+lll,B:P0KE DM+256*6+X+ili,C SPOKE D 

M+256*7+X+lll,D 

154 POKE DM+256*8+X+lll,E+188 SPOKE DM+ 

256*9+X+ill, F 5 POKE DM+256*18+X+iil , G S P 

OKE DM+256*ll+X+iii,H:NEXT X S NEXT U 

208 RESTORE 285SF0R V=l TO 6:READ 0:P0 

KE DM+256*8+0,53:NEXT U 

285 DATA 28,58,97,133,168,286 

258 FOR C=224 TO 255 SPOKE DM+256*11+C, 

39 s NEXT C 

255 FOR 0=39 TO 288 STEP 37 SPOKE DM+25 

6*3+0, 248: NEXT OiFOR 0=38 TO 288 STEP 

37 SPOKE DM+256*3+0, 247: NEXT 

388 RESTORE 588SF0R 1=1578 TO 1637SREA 

D A SPOKE I, AS POSITION 13,8:? 86; 1578+5 

320' RESTORE 338SF0R T=l TO 14:READ 01: 

POKE DM+256K6+0I, 165 SPOKE DM+256*1+0I, 

166 .'POKE DM+256*2+0I, 149: NEXT T 

338 DATA 25,35,46,69,79,92,183,127,137 

, 161, 175, 182, 197, 222 

348 POKE DM+256«3+222,248 

358 RESTORE 365: FOR N=41 TO 223 STEP 3 

7: READ OP: POKE DM+256*8+N, OP : POKE DM+2 

56*8+N+17, OP : POKE DM+256*8+N+29, OP 

368 NEXT N:POKE 559,8 

365 DATA 159,168,161,162,163 

378 POKE 1575,65!P0KE 1576,8:P0KE 1577 

,6:P0KE 568,8:P0KE 561,6:P0KE 764,255 

375 POKE 53256,1: POKE 53 277, 2 : G O SUB 18 

380 POSITION 2,ll:? ttej-'EEEiHIF] ^TT¥i T 

MO"i RUN "D:TRAIN2.BAS" 

399 REM m:i:i:mnT<\ t:m>T*t:^?rTm 

488 DATA 2,3,3,3,-76,178,48,39,1,68,69 

,69,33,43,1,49,1,70,71,65,58,44,1,58,1 

,72,73,74,42,45,1,51,1,75,8,76,29,45 

481 DATA 1,39,1,75,8,76,29,46,1,39,1,7 
5,8,76,29,47,1,39,1,77,78,79,29,43,1,3 
9,1,88,81,82,29,43,1,49,1,75,8,76,29 

482 DATA 44,1,58,1,75,8,76,29,45,1,51, 
1,75,0,76,29,25,0,39,1,77,78,79,29,1,2 
5,39,1,80,81,82,29,1,25,39,1,75,8,76 

483 DATA 29,1,25,39,1,75,0,76,29,1,25, 
39,1,75,0,76,29,1,25,39,1,77,78,79,29, 
1,25,39,1,68,69,69,33,1,25,39,1,70 

404 DATA 71,65,58,1,25,39,1,72,73,74,4 
2,1,25,39,1,75,0,76,29,1,25,39,1,75,0, 
76,29,1,25,39,1,75,0,76,29,1,25,39,1 

405 DATA 77,78,79,29,1,25,39,1,88,81,8 
2,29,25,0,39,1,75,0,76,29,43,1,49,1,75 
,0,76,29,44,1,50,1,75,0,76,29,45,1,51 

406 DATA 1,77,78,79,29,45,1,39,1,68,69 
,69,33,46,1,39,1,78,71,65,58,47,1,39,1 
,72,73,74,42,43,1,39,1,75,0,76,29,43 
467 DATA 1,49,1,75,0,76,29,44,1,50,1,7 
7,78,79,29,45,1,51,26,27,27,27,-72,169 
,52,39 

499 REN ■:f:t:».-ti» flit ■ I >W«te:its:» 

566 DATA 104,169,0,133,203,141,4,212,1 

60,59,162,6,169,7,76,92 

561 DATA 228,198,283,165,263,141,4,212 

,16,31,169,7,133,283 

582 DATA 141,4,212,238,4,6,173,4,6,281 
,234,288,2,169,8,162 

583 DATA 8,157,4,6,232,232,232,224,39, 
288,246, 76,98,228 
599 REM " 
999 REM _ 

2880 DATA 8,8,8,6,8,8,8,8,255,255,255, 
255,255,255,255,255,6,7,29,117,85,85,8 
5,85,85,85,85,85,85,85,85,85,252,253 

2881 DATA 253,253,253,253,253,253,253, 
253,253,253,253,253,253,253,8,255,255, 
131, 131, 131, 131, 131, 255, 131, 131, 131 
2082 DATA 131,131,131,131,127,127,126, 
126,126,126,126,127,126,126,126,126,12 
6, 126, 126, 126, 126, 126, 126, 126, 126 
2863 DATA 127,127,127,255,24,24,24,24, 
24,24,255,0,0,0,0,0,0,255,255,255,255, 
127,127,127,127,127,255,127,127,127 
2084 DATA 127,127,127,127,127,127,127, 
127,127,127,255,255,255,255,255,254,25 
4, 254, 254, 254, 255, 254, 254, 254, 254 
2685 DATA 254,254,254,254,254,254,254, 



»** CHARCTER DATA *** 



254,254,255,255,255,127,127,127,127,25 

5,255,255,255,255,255,255,127,127,127 
SF 2886 DATA 127,127,56,16,56,16,8,6,8,8, 

8,255,255,255,255,255,255,255,8,127,12 

7,127,127,127,127,127,85,85,85,85,85 
AD 2867 DATA 85,85,127,255,255,255,255,25 

5,0,0,0,0,224,184,174,178,178,178,176, 

176,178,170,170,170,170,178,178,176 
HP 2688 DATA 178,176,178,176,178,178,254, 

255, 195, 153, 145, 137, 153, 195, 255, 255, 23 

1, 199, 231, 231, 231, 129, 255, 255, 195, 153 
ZG 2689 DATA 243,231,267,129,255,255,129, 

243,231,243,153,195,255,255,243,227,19 

5,147,129,243,255,255,129,159,131,249 
ZO 2616 DATA 153,195,255,255,195,159,131, 

153,153,195,255,8,8,8,0,0,0,0,255,254, 

16,56,40,56,16,56,40,56,16,56,46 
ZK 2011 DATA 56,16,56,40,0,0,0,0,255,0,25 

5,255,16,40,68,130,68,40,16,0,0,224,63 

,249,15,0,0,0,0,7,252,207,112,0,8,0 
MR 2812 DATA 255,255,255,255,255,8,8,1,25 

5,255,255,255,255,8,126,255,255,255,25 

5,255,255,0,0,128,255,255,255,255,255 
SV 2813 DATA 15,31,255,255,255,255,255,25 

5,248,248,255,8,8,255,255,143,15,6,6,1 

27,3,1,8,255,6,255,255,255,255,255 
QV 2814 DATA 126,255,8,255,255,254,192,12 

8,8,255,6,255,255,0,0,255,255,241,240, 

0,0,254,16,124,16,56,16,56,16,6,255 
KO 2015 DATA 255,255,255,255,255,128,8,0, 

8,8,8,8,8,132,0,6,8,0,8,8,8,33,8,6,6,8 

,8,8,124,254,16,56,124,254,124 
JU 2859 DATA 56,16,8,127,127,127,127,127, 

127,62,8 
ZC 2868 DATA 8,63,127,127,127,127,127,127 
FA 2661 DATA 8,255,255,255,255,255,255,0 
BL 2062 DATA 0,240,252,254,254,255,255,25 

5 
PC 2063 DATA 6,0,0,0,255,255,255,255 
EG 2064 DATA 127,127,127,127,254,254,252, 

248 
UT 2665 DATA 255,255,255,0,8,8,6,8 
CP 2866 DATA 254,255,255,255,127,127,127, 

127 
EV 2867 DATA 0,7,31,63,63,127,127,127 
BR 2068 DATA 255,255,255,127,127,127,127, 

127 
AO 2069 DATA 127,255,255,255,255,255,255, 


YR 2070 DATA 0,62,127,127,127,127,127,127 
OD 2071 DATA 0,0,0,128,192,224,248,248 
XN 2872 DATA 252,254,255,255,255,127,63,3 

1 
EN 2873 DATA 15,7,3,1,8,8,8,0 
KZ 2674 DATA 127,127,255,255,255,255,255, 

255 
FC 2675 DATA 255,255,255,255,255,127,127, 

127 
MJ 2676 DATA 127,127,127,63,63,31,7,0 
GL 2077 DATA 127,127,127,62,0,0,0,0 
NV 2078 DATA 8,0,6,0,62,127,127,127 
NE 2879 DATA 255,255,255,254,254,252,248, 

8 
JJ 2880 DATA 8,255,255,255,255,255,255,3 
CO 2881 DATA 8,254,255,255,255,255,254,25 

2 
DK 2882 DATA 3,7,15,15,31,63,63,127 
ZR 2883 DATA 248,248,248,224,224,192,128, 

128 
SF 2884 DATA 0,1,1,3,7,7,15,31 
NF 2885 DATA 255,254,252,252,248,248,248, 

224 
EQ 2886 DATA 31,63,127,127,127,127,63,8 
BH 2687 DATA 192,255,255,255,255,255,255, 

8 
LM 2688 DATA 127,63,63,31,15,7,3,1 
KM 2889 DATA 8,128,193,227,247,255,255,25 

5 
MK 2898 DATA 127,254,254,252,248,248,224, 

192 
EF 2891 DATA 198,124,124,198,198,192,192, 

198 
UN 2892 DATA 198,124,124,198,198,198,198, 

198 
LU 2693 DATA 192,254,192,192,192,192,192, 

192 
IH 2894 DATA 24,126,126,24,24,24,24,24 
CK 2695 DATA 198,198,198,238,246,254,222, 

286 
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75 



OT 


2896 
192 


DATA 


SI 


2897 
198 


DATA 


OH 


2898 
192 


DATA 


KN 


2899 
216 


DATA 


LN 


2188 


DATA 


FK 


2181 

7 


DATA 


UY 


2182 


DATA 


MY 


2183 
127 


DATA 


LH 


2104 

• 


DATA 


DD 


2185 


DATA 


PH 


2118 
198 


DATA 


IH 


2111 


DATA 


UN 


2112 


DATA 


LI 


2113 
8 


DATA 


JR 


2114 


DATA 


MG 


2288 
198 


DATA 


YK 


2281 
198 


DATA 


FT 


2282 


DATA 


ZF 


2283 


DATA 


OC 


2284 


DATA 


ZL 


2285 


DATA 


JO 


2286 


DATA 


CC 


2222 


DATA 


AM 


2223 


DATA 



192,192,254,192,192,248,192, 

198,198,124,198,198,198,254, 

192,254,254,192,192,248,192, 

284,198,252,198,198,198,252, 

0, 63, 127, 127, 127, 127 , 63, 
0,255,255,255,255,255,255,12 

0,252,254,254,254,254,252,0 
127,127,127,127,127,127,127, 

252, 198, 198, 204, 198, 198, 252, 

195,195,102,60,24,24,24,0 
198, 126, 124, 198, 192, 192, 222, 

24,24,198,198,198,110,60,24 
0,0,126,126,126,126,126,126 
56,16,198,198,198,198,198,10 



LISTING 2: BASIC 




QK 
HW 
NG 
OA 
ZD 
EZ 
MZ 
QK 
FF 

HR 



1 REM MMiemtmCKKmtMMKKKKMKKKKlCKKKMKK 

2 REN ** TRAIN CRAZY Cpt 2) ** 

3 REM ** BY ** 

4 REM ** COLIN FALLER *K 

5 REM *» ** 

6 REM ** COPYRIGHT 1988 ** 

7 REM ** BY ANALOG COMPUTING *» 

8 REM IBHHflHHHHBHBHBHHHHHHHHHBHHHHtW 

9 POKE 2,52:P0KE 3,185:P0KE 9,2:TRAP 3 

eeee 

10 POKE 559,0 

OF 11 POKE 53248, 8: POKE 53250, 0:P0KE 5325 

1,0: POKE 53249 , ! LEV=0 : 5C=0 : LI=6 : LP=0 : 

0=8 : GH=0 : BA=5 : CX=32 : GOTO 50 
HV 12 RESTORE 13 i FOR U=l TO 6: READ : POKE 

DH+256*l+0, 104: NEKT V 
ML 13 DATA 28,58,97,133,168,206 
LQ 14 FOR T=38 TO 288 STEP 37: POKE DM+256 

*3+T, 247: POKE DM+256*3+T+l, 248 : NEXT T 
IP 15 GRAPHICS 8: POKE 559,0: POKE 82,0: RES 

TORE 38 : DL=PEEK (560) +PEEK (5611*256+3 : p 

OKE 752, l!P=USR (15781 
MX 20 POKE DL,70:P0KE 560,35:F0R A=3 TO 1 

9: READ B SPOKE DL+A,B:NEXT A 
HV 30 DATA 2,2,2,2,2,2,3,2,6,14,10,6,1,15 

,6,3,7 
BO 40 POSITION 32,0:? " jkl\3*J V*jkl A/ J 

l*\J*JVAj*r/ /'■;:? ," m m_*m_3 M 
mA. h *h_*m_3 — j-H "■"; 

45 ? ," M Hr |Mh4 M M| a M _HHM> 

4* H m"; :? ," c c [[ [j-iic c ■ 

] a C It [| T l ["SPOKE 623,2 

46 POSITION 24,5:? " I I I I I I I I I I I I I I I I I I 
1 1 1 I I I I I I I I I IMPOSITION 7,7:? "no" 

47 POSITION 18,8:? "abcde fgcchi":POS 
ITION 18,9:? "I I I I I I I I I I I |"3G0T0 65 

AY 58 RAMT0P=PEEK(106) 

BR 51 START=RAMT0P-8:CH=256«START:P0KE 75 

6, START 
SI 52 TEMP=RAMTOP-20:DM=256»TEMP:FOR 1=15 

36 TO 1538:P0KE I,112:NEXT I 
VP 53 FOR 1=1539 TO 1572 STEP 3: POKE 1,87 

SPOKE 1+1,8: POKE 1+2, TEMP :TEMP=TEMP+i: 

NEXT I: GOTO 12 
RM 65 POSITION 1,0:? "□%+□%+□ %+U %+U % 

+D"": position 8,10:? "U3 %+U %+U % +U % 

IV 90 RAMT0P=PEEK(1061 SSETCOLOR 0,O,0iSET 
COLOR 4,13,8:SETC0L0R 1,1, 14 : SETCOLOR 



HK 



HV 
UE 



3,6,6:SETC0L0R 2,9,4 

95 START=RAMT0P-8:CH=256»5TART:P0KE 75 

6, START 

98 GOTO 110 

100 position i,o:? "D %+U %+U %+U %+U ' 

t+H ""I POSITION 9,10!? 7 %U %+U %+U %+U * 
+E3 %+U ■"; : gosub 105 

101 POSITION 1,0:? 
POSITION 9,10 



*K 



^vnvnve 



+□■"; : GOSUB 105 

02 position i,0:? "ii+Q %+a %+a %+a %+ 



Q%+": POSITION 9,10! 

DX+DI"; : gosub 105 

NX 103 POSITION 1,0:? "li+j 



4VHWH 



+D^":POSITION 9,10:? 

%+U%+"; i GOSUB 105: GOTO 100 
GH 105 IF PEEK (53279) =6 THEN GOTO 290 
JQ 107 IF STRIG(O}=0 THEN GOTO 290 
TZ 108 AS=AS+128.-BGT=4:IF AS=256 THEN AS= 

O:BGT=BGT=0 
OP 109 SOUND 1,AS,8,BGT:RETURN 
XT 110 DIM PM$(2048) 
JF 128 PM$ (11 =CHR$ CO) : PM$ (2048) =CHR$ (0) : P 

M$(2)=PM$ 
UR 130 DIM C$(128):C$(1)=CHR$(0) :C$(128)= 

CHR$(0) :C$(2)=C$ 
YB 140 DIM P$ (170): POKE 559,35 
KV 150 RESTORE 170: FOR L=l TO 160 STEP 7: 

READ A,B,C,D,E,F,G:CA=CA+128 
RQ 160 P$(L,L)=CHR$(A) :P$(L+1,L+1)=CHR$(B 

) :P$(L+2,L+2)=CHR$(C) ! PS (L+3, L+3)=CHR$ 

(D) : PS (L+4, L+4) =CHRS (E) 
MA 164 PS(L+5,L+5)=CHRS(F) : PS (L+6,L+6)=CH 

R$(G):SOUND 1,CA,8,4:NEXT L 
PF 165 SOUND 1,58, 10, 3: FOR T=l TO 75 
HC 166 NEXT T:SOUND 1,O,0,O:FOR T=l TO 75 

iNEXT TSSOUND 1,50,10,3 
AK 170 DATA 0,0,0,0,24,52,63,60,152,216,2 

20,124,60,24,52,98,130,131,0,0 
VC 171 DATA 0,0,0,48,104,126,120,152,220, 

220,124,56,24,56,208,136,12,0,0,0 
BU 172 DATA 0,0,0,24,52,63,60,152,216,220 

,124,60,24,24,112,80,24,0,0 
QE 173 DATA 0,0,0,24,52,63,60,152,216,220 

,124,60,8,8,8,8,28,0,0 
XV 174 DATA 0,0,0,24,52,63,60,152,216,220 

,124,60,24,28,52,34,51,0,0 
OJ 175 DATA 0,0,0,0,0,24,52,63,60,152,220 

,124,60,8,8,8,28,0,0,0,0,0 
QX 176 DATA 255,255,255,255,255,255,255,2 

55,255,255,255,255,255,255,255,255,255 

,255,255,255 
Y5 177 DATA 255,255,255,255,255,255,254,2 

54, 252, 252, 248, 248, 240, 240, 224> 224, 192 

,192,0,0 
AZ 190 A=ADR(PMS) 
QN 280 PMBASE=INT(A/1024>*1024 
VN 210 IF PMBASE<A THEN PMBASE=PMBASE+102 

4 
DV 220 S=PMBASE-A 
UR 230 POKE 54279, PMBASE/256 
ZV 240 P0=S+512:Pl=S+64O:P2=S+768:P3=S+89 

6 
JV 250 POKE 53257,2! POKE 705, 61: POKE 559, 

43: POKE 53277,2 
BP 260 POKE 53249, 0iY=34:I=58 
UL 270 PM$(P1+Y,P1+Y+19)=PS(I,I+19) 
HI 280 POKE 764, 255 SPOKE 704, 18: POKE 706, 

16SP0KE 707,18:P0KE 53248, O : POKE 53251 

,0:POKE 53250,0 

282 1=139 
YX 283 POKE 53256, 1 : POKE 53258, IsPOKE 532 

59,1 
RE 284 FOR U=0 TO 90 STEP 20 S PMS (P2+U,P2+ 

U+19)=PS(120,I) SNEXT U 
TI 285 FOR U=0 TO 80 STEP 20 S PMS (P3+U,P3+ 

U+19) =PS (120, 1) : NEXT U 
HT 286 FOR U=0 TO 100 STEP 20 S PMS (PO+U, P0 

+U+19) =PS (120, I) : NEXT U 
Y5 287 PMS (P3+82,P3+82+19)=PS (140, 140+19) 

: PMS (PO+113, PO+113+10) =PS (1,1+10) 
LZ 289 FOR T=l TO 43 STEP 3:P0KE 53248, T: 

POKE 53250, 13+TSP0KE 53251, 27+T : NEXT T 

:GOTO 100 
•IV 290 SOUND 1,50, 10, 3: FOR T=l TO 75: NEXT 
T:SOUND 1,0,0,O:FOR T=l TO 75 : NEXT T: 

SOUND 1,50,10,3 
HD 300 RAMT0P=PEEK(106) 



n 
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PC 318 START=RAMT0P-8:CH=256*START:P0KE 7 

56, START 
JQ 328 TEMP=RAMT0P-2B:DM=256«TEMP:F0R 1=1 

536 TO 1538iP0KE I,112:NEXT IiPOKE 559 

,8 
J 321 POKE 623,2SP8KE 53277, 2 : U=U5R (1578 

j if "U" 
LU 323 POSITION 28,8:? •• mmmmm ^ mmmmmml ^^ 



HJ3333jH33SnS" 

E 326 POSITION 14,4:? "^m^m 



Ut H H H H H H Gdsht *" 
CT 327 POSITION 37,7:? "■ 



udgvbe 



X 



E 328 ? 



LH 



NH 



RN 



EH 



FJ 



DI 
DY 



338 FOR 1=1539 TO 1572 STEP 3 ! POKE 1,8 

7 SPOKE 1+1,8: POKE 1+2, TEMP : TEMP=TEMP+1 

:NEXT I 

333 RESTORE 335 ! FOR N=l TO 28: READ OP: 

POKE DM+256tt3+0P,8:NEXT N:SOUND 1,8,8, 

8 

335 DATA 53,87,156,148,188,118,178,191 

,28,134,178,211,28,61,123,281,43,145,1 

64,286 

348 SETCOLOR 1, 1, 14 : SETCOLOR 4,13,8:SE 

TCOLOR 8, 0,0! SETCOLOR 3, 13, 8 S SETCOLOR 

jt 9 A 

365'RESTORE 366:P0KE DL,76:P0KE 568,35 

IFOR A=3 TO 14: READ B:POKE DL+A,BiNEXT 

A: POKE 559,43 
366 DATA 14,3,15,14,3,15,14,18,14,1,3, 
6 

488 POKE 764,255iP0KE 53249, 98 : TT=8 :ZX 
=8: POKE 752,1 
428 TT=8!Y=34:X=98:I=l:SC=SC+X 

421 POKE 53278, 8 i SOUND 1,8,8,8 

422 0=0+1: IF 0=7 THEN TT=TT+1 : POSITION 
34-TT+ZX,2:? " ":0=8:IF TT-ZX=28 THEN 
3888 

423 S=STICKC8J :IF S=14 THEN GOTO 688 
431 IF S=13 THEN 1=96 :X=X-1: GOTO 478 
433 IF STRIGC0)=0 THEN X=X+1:G0T0 455 
444 GOTO 5888 

455 IF X>168 THEN X=168 

459 I=I+19:IF I>78 THEN SOUND 1,258,18 

,8!l=l:SC=SC+12:S0UND 1,8,8,8 

468 GOTO 588 

478 IF X<53 THEN GOTO 3888 

588 POKE 53249, X 

518 PM$CPi+Y,Pi+Y+19)=P$(I,I+19) 

515 IF PEEK(53252)>10 THEN 28808 

516 IF PEEK (53253) >8 THEN 18888 
528 GOTO 422 

688 I=3:U=238:F0R Y=36 TO 22 STEP -2:U 
=U-18:S0UND l,U,18,5iIF PEEK (53253) >8 
THEN 18088 

610 PM$(Pi+Y,Pi+Y+19)=P$(I,I+19) : NEXT 
Y 

620 I=3:M=128:F0R Y=22 TO 37 STEP 2:U= 
V+10: SOUND 1,U,18,5:IF PEEK C532531 >8 T 
HEN 3888 

638 PM$ (Pl+Y, PI+Y+19) =P$ CI, I+19J : NEXT 
Y 

635 1=58 ! PM$ (Pl+34, P1+53J =P$ CI, I+19J 
700 Y=34i 1=58: SOUND 1,8, 8, 8: GOTO 422 
988 POKE DM+256*3+222,8:I=3:F0R Y=37 T 
30 STEP -l:SOUND 1, Y+Y+Y+Y+Y+Y+Y, 18, 
5 

918 PM$ CP1+Y, Pl+Y+19) =P$ CI, 1+19) : NEXT 
Y 

928 1=22: FOR Y=38 TO 90 STEP 2 : SOUND 1 
,Y+Y,10,5 

922 1=1+19: IF I>78 THEN 1=1 
930 PMSCP1+Y, Pl+Y+19) =P$ CI, 1+19) ! NEXT 
Y 

2000 GRAPHICS 2+16:P0KE 559, 8 : SETCOLOR 
8,1,14:SETC0L0R 4, 13, 8 : SETCOLOR 1,8,8 

iSETCOLOR 3,6,6:SETC0L0R 2,9,4 

2885 LEU=LEV+1:? US}" MeQD DotHJ" 

:? «6; ,,M 

2010 ? tt6;" EBUeQ ";LEV:? It6; ,,,, 

2020 ? tt6j" sBHRe ■■; INT CSC) +215:? 

»6; M " 
2022 ? »6;" LiCBS ";LI-1 



RF 2858 POKE 785, 61: POKE 559,42 

OU 2860 I=22:F0R Y=X TO 222iP0KE 53249, Y: 

SOUND 1,8,8,8 
RR 2878 1=1+19: IF I>78 THEN SOUND 1,258,1 

8,5:1=1 
BZ 2888 PM$CPl+90,Pl+98+19)=P$CI,I+19) : PO 

SITION 12,4:? «6; INT CSC+Y) ! NEXT Y 
UY 2898 1=115: FOR Y=18 TO 128 STEP 5 
DY 2895 PM$CP1+Y,P1+Y+19)=P$CI,I+19) iNEXT 
Y:SOUND 1,8,8,8:P0SITI0N 12,2:? ttSjLE 

U + l 
GN 2098 POSITION 7,8:? tt6;"GoGE LuH3":P0S 

ITION 12,2!? tt6;LEV+lsCY=8 

vs 2899 for y=8 to 100 i cy=cy+b6 ! sound 1,c 

y,18,6:next y:ll=ll+i: sound 1,0,0,0 
cb 2130 if ll=6 then ll=1 
ta 2200 restore 2258+ll:f0r n=l to 4:re0d 
op: poke dm+256*3+0p, 185: next n:poke 5 

59 
BH 2218 GRAPHICS 8: POKE 559, 8:RAMT0P=PEEK 

(106) 
ES 2228 START=RAMT0P-8 ! CH=256*START : POKE 

756, START 
DR 2225 TEMP=RAMT0P-28:DM=256*TEMP:F0R 1= 

1536 TO 1538! POKE I, 112: NEXT I 
PO 2238 FOR 1=1539 TO 1572 STEP 3: POKE I, 

87:P0KE I+1,8:P0KE 1+2, TEMP :TEMP=TEMP+ 

liNEXT IiGOSUB 2308: GOTO 348 
YL 2251 DATA 53,87,156,148 
IH 2252 DATA 188,118,178,191 
QY 2253 DATA 28,134,178,211 
LT 2254 DATA 28,61,123,281 
OX 2255 DATA 43,145,164,286 
UR 2300 POKE DM+256K3+222,248!P0SITI0N 28 



,e: 



hehipq IJJJJJJJJJJJJJJJ 



BX 2318 ? " 

UJJJJJJJJJJJJ " 

CY 2320 POSITION 14,4:? "^^^^HiiMa 

eut H H H H H II" 
JG 2321 POSITION 12+BN,6i? '^axi*"": POSITI 
ON 6,6:? "CdSht "SPOSITION 13,6:? " 

II 

SH 2330 POSITION 37,7:? 



NH 2348 ? 



'SPOKE 785,61:LP=8iBA=5:CX: 



32 



CJ 2358 RESTORE 2355: FOR V=l TO 6: READ 0: 

POKE DM+256*l+0, 184: NEXT U:Q=8:GH=8 
AJ 2355 DATA 28,58,97,133,168,286 
HT 2368 FOR T=38 TO 288 STEP 37 SPOKE DM+2 

56*3+T, 247 : POKE DM+256*3+T+l, 248 : NEXT 

T: RETURN 
10 3888 FOR T=0 TO 255 STEP 15:P0KE 785, T 

:SOUND 1,T,18,8!NEXT T 
CA 3001 FOR T=255 TO 8 STEP ~15:P0KE 785, 

TiSOUND 1,T,18,8:NEXT TiSOUND 1,8,8,8: 

POKE 53249, 8:LI=LI-1 
VE 3882 GRAPHICS 2+16 : POKE 559,8: SETCOLOR 
8,l,14iSETC0L0R 4, 13, 8: SETCOLOR 1,0,0 

ISETCOLOR 3,6,6:SETC0L0R 2,9,4 

NI 3005 ? t»6;" bEH LuEQ"!? »6; 
»6;" EQUeQ 
»6; u sQSRe 



DO 301O ? 

DU 302O ? 

tt6;"" 

YR 3025 ? 



;LEU+ls? tt6; ,,M 
■;INTCSC)+215:? 



»6;" LiBBS '^LI 
ZJ 3026 POKE 559,42SF0R U=l TO 200SNEXT U 

SIF LI=1 THEN POSITION 12, 6S? tte^'O-sF 

OR U0=1 TO 200: NEXT UO:GOTO 4888 
UZ 3898 1=115: FOR Y=18 TO 128 STEP 5 
HC 3895 PM$CP1+Y,P1+Y+19)=PSCI,I+19) :NEXT 

Y: POSITION 12,6!? »6;LI-1 
00 3898 POSITION 7,8:? »6;"GoEE Lut3Q" 
ZE 3899 FOR Y=2488 TO STEP -25SS0UND 1, 

Y+Y, 10,6S NEXT YiPOKE 559, O : BN=BN~1 : GOT 

2210 
ZD 4800 GRAPHICS 2+16:P0KE 559, 8 : SETCOLOR 
8,8,8:SETC0L0R 4, 13,8 : SETCOLOR 1,1,14 

iSETCOLOR 3,6,6:SETC0L0R 2,9,4:U=8 
YK 4801 POKE 559,43 
KM 4005 FOR T=2 TO 12 : U=U+128: FOR 0=0 TO 

8:NEXT 0:SOUND 1, W, 8, 6 : POSITION T,l:? 

tte," 1 bamQ-snext t: position 13,1 

MO 4006 ? »6;" "SPOSITION 9,05? tt6;"0 

AmQ" 
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Solar 

System 

Scaler 



continued from page 13 

Within the program you will find the 
following suboptions. 

"P" PRINT 

"C" CONVERT UOM 

"D" GENERATE DISTANCES 

"R" RERUN 

"M" MAIN MENU 

"SD" SCALE DISTANCES 

"AC" ACTUAL DISTANCES 

As mentioned earlier, the menus are 
prompt-driven and you should have no 
difficulty traversing them. For some ap- 
plications you may need to take output 
figures from one option and use them as 
input to another. Options S, E and SS pro- 
vide single key transfer of the screen dis- 
play to a printer, so you won't have to 
write down a lot of numbers between op- 
tions. In addition, S and SS have menu 
option C (CONVERT UOM), enabling 
conversion of table data to other units of 
measure, such as inches to feet and feet 
to miles. 

Let's take a typical scenario — say you 
want to determine the dimensions of the 
solar system with Earth at 12 inches in di- 
ameter. Start by selecting Option E 
(EARTH DIAMETER BASED TABLES) 
from the Main Menu. 

Result: The following "Earth Based Ra- 
tios" menu appears. 

EARTH BASED RATIOS 

WHAT IS EARTH SCALE DIAMETER? 
(Enter a number) 



Type in the number 12. Press RETURN. 
The following prompt appears: 



WHAT IS THE UNIT OF MEASURE (UOM)? 
(For UOM enter MILES, FEET, 
INCHES, MILLIMETERS or any UOM) 



Type in "INCHES." Press RETURN. The 
following results print to the screen: 



DIAMETERS OF SOLAR SYSTEM EDDIES 
WITH EARTH AT 12 INCHES DIAMETER. 

DIAMETERS IN INCHES 

SOL 1317.064 

MERCURY 4.59 

VENUS 11.38 

EARTH 12 

LUNA 3. 27 

MARS E.3S 

JUPITER 134.34 

SATURN 113.46 

URANUS 4S.73 

NEPTUNE 4E. 57 

PLUTO 2. 32 

P PRINT 
R RERUN 
M MAIN MENU 

Now we know the diameters of the other 
major bodies in the solar system, in 
inches, when compared to a 12-inch 
Earth. At this point, you may want to print 
the screen. Press "P" (PRINT). After the 
data has finished printing, press "R" 
(RERUN). 

The "Earth Based Ratio" menu reap- 
pears. For input this time type in a "1" 
for Earth diameter and "FEET" (or 
FOOT) for the UOM. The following 
results print to the screen: 

DIAMETERS OF SOLAR SYSTEM BODIES 
WITH EARTH AT 1 FEET DIAMETER. 

DIAMETERS IN FEET 

SOL 109. 755 

MERCURY 0. 33 

VENUS 0. 95 

EARTH 1 

LUNA 0. 27 

MARS 0.53 

JUPITER 11.2 

SATURN 9.45 

URANUS 4. 06 

NEPTUNE 3. 88 

PLUTO 0. 24 

P PRINT 
R RERUN 
M MAIN MENU 

Now we know the diameter of the sun in 
feet when the Earth is 12 inches in di- 
ameter. (We will need solar diameter in 
feet for the next part of the sequence.) 
Type "M" and RETURN to return to the 
Main Menu. Enter Option "S" (Sun di- 
ameter based tables). The following "Sun 
Based Ratios" menu appears. 



SOL BASED RATIOS 



WHAT IS SCALE SUN DIAMETER? 
(Enter a number) 



Enter the number 109.755 (from the 
previous sequence). Press RETURN. The 
following prompt appears: 

WHAT. IS THE UNIT OF MEASURE (UOM)? 
(For UOM enter MILES, FEET, 
INCHES, MILLIMETERS or any UDM) 

Type in FEET. Press RETURN. The follow- 
ing screen displays: 

DIAMETERS ARE IN FEET AND ARE 
BASED ON 109.755 FEET DIA. FOR SDL 

DIAMETERS IN FEET 

MERCURY 0. 3S24 

VENUS 0. 9436 

EARTH 1 

MARS 0. 532 

JUPITER 11.195 

SATURN 9. 4546 

URANUS 4.0609 

NEPTUNE 3. S305 

PLUTO 0. 2352 

P PRINT C CONVERT UOM 

R RERUN D GENERATE DISTANCES 

M MAIN MENU 

This screen shows us that Earth is one 
foot in diameter when the sun's diameter 
is 109.755 feet. That checks with what we 
obtained earlier from option E. Now pick 
option D to generate the distances of the 
modeled solar system. The following in- 
formation prints to the screen: 

DIAMETERS ARE IN FEET AND ARE 
BASED ON 109.755 FEET DIA. FOR SOL 

FEET DISTANT FROM SOL 

MERCURY 4473.92 

VENUS 3453. 15 

EARTH 11733.5 

MARS 17352. 53 

JUPITER 61001.5 

SATURN 111372.9 

URANUS 222557 

NEPTUNE 352004 

PLUTO 4E0S3G 

P PRINT C CONVERT UOM 

R RERUN 

M MAIN MENU 

If you don't have a feel for the distances 
expressed in thousands of feet, press C 
(CONVERT UOM) to convert to a differ- 
ent unit of measure. The following sub- 
menu appears: 

YOU CAN CONVERT OUTPUT FROM. . . 

FEET TO INCHES (1) 

INCHES TO MILLIMETERS (2) 

MILES TO FEET (3) 

FEET TO MILES (4) 

INCHES TO FEET (5> 

INCHES TO MILES (El 

MILES TO INCHES C7) 



Enter "4" to convert feet to miles. The fol- 
lowing results print to the screen: 
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CONVERTED TO MILES 
DIAMETERS ORE IN FEET AND ARE 
BASED ON 109.755 FEET DIA. FOR SOL 

MILES DISTANT FROM SOL 

MERCURY 0.S5 

VENUS l.E 

EARTH 2. 22 

MARS 3. 38 

JUPITER 11. S 

SATURN 21.2 

URANUS 42 

NEPTUNE BE 

PLUTO 37 

P PRINT 
R RERUN 
M MAIN MENU 

Now we have not only the sizes of bodies 
in the solar system (in inches and feet) 
when the Earth is 12 inches in diameter, 
but also the system's dimensions (in feet 
and miles). 

You could take the distance figure for 
Pluto (87 miles) and double it to 174 miles 
to get the average diameter of Pluto's or- 
bit (very average, since Pluto's orbit is far 
from circular, being the most highly el- 
liptical of all the major components of 
the solar system). We can still use this 
number as input to the SS option (Solar 
System Based Tables) and find the dis- 
tance to Alpha Centauri when the Earth 
is 12 inches in diameter. (It's 600,699 
miles, or about 2.4 times the distance of 
the full-size moon from our 12-inch 
Earth.) On another scale, that of the sun 
being ten inches in diameter, Pluto would 
be 3,499 feet out (at 0.54 millimeters in 
diameter) with Alpha Centauri 4,575 
miles away. 

This screen sequence shows the gener- 
al operational mode of the program and 
how information can be gathered while 
constructing a basic scenario. Option SS 
(Solar System Based Tables) enables you 
to generally size the solar system as a 
preliminary step to the other options. It 
also gives the distance to the nearest star. 
Option 12 (12-Inch Earth Globe Distance 
Conversions) is an added utility that 
comes in handy when calculating scale 
and real distance in a system based on a 
12-inch Earth (most globes of the Earth 
found in the home are 12 inches in di- 
ameter). 

I have used this program to build 
models of the solar system based on di- 




I have used this 

program to build 

models of the solar 

system based on 

diameters of hundreds 

of miles to those of 

only a few millimeters. 



ameters of hundreds of miles to those of 
only a few millimeters. Here are some 
results'. 

When I look at the 12-inch globe on my 
bookshelf five feet from my living-room 
easy chair, I can visualize a scale model 
of the Earth from a height of 39,630 miles. 
The Space Shuttle cruises only .23 inches 
above the globe's surface (150 miles). Ge- 
ostationary satellites, orbiting the Earth 
at 22,000 miles, are out about 33.3 inches 
(2.78 feet) and lay sprinkled about half- 
way between me and the globe. The moon 
is a gray and dinky pockmarked baseball 
of 3.27 inches diameter, and is some 30 
feet behind me, through the back door 
and out into the yard. The sun is an enor- 
mous, brilliant white ball of incandescent 
gas, 109.75 feet in diameter and 11,733 
feet (2.22 miles) away. The gas giant 



Jupiter is over 11 feet in diameter and 
61,001 feet (11.6 miles) from the sun. Plu- 
to is roughly 2.8 miles in diameter (an 
inch smaller than Earth's Moon!) and 
about 460,000 feet (87 miles away). 

All of this was quickly generated using 
the E, S and 12 options with throughput 
based on a 12-inch Earth. We could, 
however, have generated similar results 
based on any size for the Earth, sun or 
the solar system. 

In relation to the Voyager II flyby of 
Uranus last January, and staying with the 
12-inch diameter Earth, the distance from 
Uranus to the sun turns out to be about 
42 miles. Its diameter is 48.73 inches. That 
gives us some feel for the earlier question 
of how far two billion miles is: for a 
12-inch Earth, about 44 miles. 

Using the SS option, we can determine 
that if the solar system were a three-inch 
disk floating in front of us, the Alpha 
Centauri System would be another disk 
863 feet away, or about the distance to the 
roadway on the other side of the straw- 
berry field behind my house. Earth would 
be only .038 inches from the sun and 
would require a microscope for resolu- 
tion. If the solar system were the size of 
a quarter (about one inch), the two sys- 
tems would be separated by 287 feet. It's 
a lot easier imagining two quarters float- 
ing 287 feet apart than two multibillion- 
miles-wide planetary systems, composed 
of mainly empty space and separated by 
25 trillion miles. 

An infinite variety of layouts can easi- 
ly be built using the Solar System Scaler 
based on manipulations of the three di- 
ameter parameters for the Earth, sun or 
solar system. And, with the 12 option, you 
can quickly calculate scale and real dis- 
tances for a 12-inch Earth globe system. 

Now do you have a better handle on 
how far two billion miles is? 

Carey M. Furlong has been an amateur as- 
tronomer for the last 25 years and has operat- 
ed an Atari for the last four (presently a 
130XE). He holds a B.A. in English and is 
currently employed as a senior technical writer 
by MacDonnell Douglas Corporation 's Infor- 
mation Systems Group, CAD/CAM Services in 
Cerritos, California. 



LISTING 1: BASIC 

HZ 180 REM SOLAR SYSTEM SIZE AND 

HV 110 REM DISTANCE RATIO GENERATOR 

UO 120 REM BY CAREY M. FURLONG 

LV 125 REM COPYRIGHT 1988 BY ANALOG COMPU 

TING 
FB 130 GRAPHICS 17:SETC0L0R 2, 9, 7 : 5ETC0L0 

R 3,2,12:SETC0L0R 8,7,2 



ZT 140 POSITION 4,9:? tt6;"CT 
PH 158 POSITION 7,12:? ttejT 
TV 168 POSITION 8,1:? tt6;" 



Ttrr - 



MT 170 P OSITION 8,3:? ttfi : ■ T-Cfi-TirMIkmHIHH 

reran - 

ML 180 POSITION 8,5:? 86; »=============== 



MM 198 POSITION 8,16:? tt6; "============== 

DG ie8 - P0SITI0N 3,18:? ttB:" MM:UWJH:m:i 
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0" 



HY 2«P0SITI0N 1,19:? »6;»ECEMiEEIiaMIEE 

BQ 220 POSITION 8,20:? tt6; M DErjJ0" 

KB 230 POSITION 0,22:? 86;"============== 






BD 240 FOR DELAY=1 TO 2500: NEXT DELAY 

EH 250 DIM A$(181,E$(381,Z$(361 

OE 260 REM SYSTEM DIAMETER CMILES) & DIST 

ANCE (MILLIONS OF MILES) DATA 
OE 270 L=869921:REM DIAMETER OF SOL 
IZ 280 B=3831:B1=35.5:REM MERCURY 
EB 290 C=7518.6:C1=67:REM VENUS 
HU 380 D=7926:D1=93:REM EARTH 
DB 310 K=2168:REM LUNA 
GF 328 E=4217:E1=141.5:REM MARS 
AT 338 F=88732:F1=483.5:REM JUPITER 
RF 348 G=74937.5:G1=887.5:REM SATURN 
DH 358 H=32187:Hl=1764iREM URANUS 
AE 368 1=38757. 9! 11=2798! REM NEPTUNE 
HO 378 J=1864:J1=3653:REM PLUTO 
JP 388 K1=25222492:REM ALPHA CENTAURI 
OR 382 REM 6PEN IOCB TO SEND PROG INPUTS 

TO E! 
PH 385 OPEN »3,4,4,"E:" 
RS 398 ? "IS" 
5J 488 GRAPHICS 8 
HI 410 SETCOLOR 2, 0, 4 ! SETCOLOR 1,0,12:SET 

COLOR 4,8,18 
JZ 415 POKE 752,1 
TT 430 ? :? "SOLAR SYSTEM SCALER C 

Rev. Kl" 

HY 440 ? " " 

ME 458 ? :? "With this progran you can co 

nstruct Mathematically scaled Models 
of the Solar System." 
SN 460 ? :? "Relative sizes for the plane 

ts and the Sun and their respective 
distances from"; 
MY 478 ? " one another are general 

ed when given a base Measure 

ment."; 
AC 488 ? " Base Measurements can be as 

signed to either the Earth, Sun, or th 

e Solar SysteM." 
IB 498 ? :? " 



PS 588 ? 



XL 518 ? :? "PRESS ■ll=*<ll:»:i TO CONTINUE" 

BF 528 ? ! INPUT «3,AS 

KI 548 GRAPHICS 8:SETC8L0R 2, 9, 14 : SETCOLO 

R 1,0,4:SETC0L0R 4,8,18 
KG 545 POKE 752,1 
RM 550 ? "«" 
MO 568 ? " 
NP 570 ? " 
PF 588 ? " 
LO 598 ? :? :? 

ABLES" 



MAIN MENU SELECTION 



ZM 688 ? 

BLE5" 
DK 618 ? 

ASED 
MA 628 ? 

TANCE 
FQ 638 •> 



1 SUN DIAMETER BASED T 
EARTH DIAMETER BASED TA 



SOLAR SYSTEM DIAMETER B 
TABLES" 

12 INCH EARTH-GLOBE DIS 
CONVERSIONS" 
_ END PROGRAM" 

HZ 648 POSITION 19,21:? " " 

00 650 TRAP 758 

OZ 668 POSITION 1,19:? :? " ENTER SELECTI 

ON " ' 
UA 678 INPUT tt3,A$ 
JM 688 POKE 752,0 
GA 698 GRAPHICS 8 : SETCOLOR 2, 8, 12: SETCOLO 

R 1,0, 4: SETCOLOR 4,9,12 
UO 788 IF A$="S" THEN 778 
FC 718 IF AS="E" THEN 1768 
OK 728 IF A$="12" THEN 2828 
MX 738 IF A$="SS" THEN 2288 
PP 748 IF A$="999" THEN GRAPHICS 8:SETC8L 
OR 2,9,4:SETC0L0R 4.0.8:? "K":? 



50LAR5Y5.AST (Rev . K - 11/9/86) 



"ona 

_J":END 
IC 758 SETCOLOR 2,2, : SETCOLOR 4,3,0:SETC 

OLOR 1,8,12:? :? "INSUFFICIENT RESPONS 

E":GOTO 518 
DZ 768 REM SOL TABLE GENERATOR 

LU 778 ? "«■■:? :? » mSBESBMMSa 



HI 788 ? :? :? :? :? ■* 

MP 798 ? :? "WHAT IS SCALE SUN DIAMETER?" 

ME 880 ? :? " (Enter a number)" 

HE 810 ? : INPUT S 

JC 828 VAR=l!M=8 

SG 838 ? :? "WHAT IS UNIT OF MEASURE (UOM 

)?" 
IB 840 ? :? " (For UOM, enter MILES, FE 

ET," 
LE 858 ? " INCHES, MILLIMETERS or any U 

0M1" 
GC 868 ? I INPUT ZS 
FZ 878 ? "*":? "DIAMETERS ARE IN ";Z$;" A 

ND ARE" 
XR 888 SETCOLOR 4,8,2:? "BASED ON ";S;" " 

;Z$;" DIA. FOR SOL" 
YN 898 ? " 

PM 988 ? " 

WW 918 IF W<>8 THEN 938 

XL 928 ? :? " DIAMETERS IN ";Z$:GOT 

948 
WH 938 ? :? " DIAMETERS IN ";E$ 
TM 948 X=SKB/L:Xl=INT(X*18888+8.5)/18888: 

? ! ? " MERCURY "; X1*UAR 

AV 968 X=S*C/L:Xl=INT(Xttl88ee+8. 51/18888: 

? " VENUS "; X1*VAR 

CP 988 X=S*D/L:Xl=INT(X«18888+8. 51/18888: 

? " EARTH " ■ X1*VAR 

NJ 1888 X=S*E/L:Xl=INT(X«1888e+8. 51/18888 

, :? " MARS ";X1*VAR 

AO 1828 X=S*F/L:Xl=INT(X*1080O+0. 51/18888 

_„ \l" JUPITER ";X1*VAR 

FR 1848 X=S*G/L:Xl=INT(X*18888+8. 51/18888 

:? " SATURN ";X1*VAR 

HU 1868 X=S*H/L:Xl=INT(X*10888+8. 51/18008 

! ? " URANUS "; X1*VAR 

MA 1888 X=S«I/L:Xl=INT(X*18888+8. 51/18888 

:? " NEPTUNE ";X1*VAR 

FM 1188 X=S*J/L:Xl=INT(X*18888+8. 51/18888 

I I ? " PLUTO "; X1*VAR 

LH 1128 POKE 838,175:P0KE 839,242 

SA 1130 IF A$="P" THEN GRAPHICS : SETCOLO 

R 2, 0,12: SETCOLOR 1, 0,4 ! SETCOLOR 4,9,1 

2:AS="M":? :? SGOTO 880 
BX 1140 GOSUB 3620 
ZS 1150 POKE 8 2,8:P0KE 83 .48 

gu mo?j?jjpHHJBHBHHMBHl 

FF 1178IFW<>e THEN 1198 

YE 1188 ? " a PRINT Q C8NVERT UO 

M"!GOTO 1200 
HI 1190 ? " Q PRINT" 
ZU 1200 ? » O RERUN O GENERATE D 

ISTANCES" 
RH 1218 ? " m MAIN MENU" 
WT 1228 ? " sel 

ECT " : 
IJ 1238 POKE 82,2iP0KE 83,39 
DA 1240 INPUT AS 

OG 1250 IF A$="P" THEN GOSUB 2788 
OX 1268 IF A$="P" THEN 888 
WZ 1278 IF A$="D" THEN 1348 
WE 1288 IF A$="R" THEN A$="S":GOTO 690 
JY 1290 IF A$="M" THEN 548 
UF 1300 IF W<>0 THEN A$="5":G0T0 690 
BV 1310 IF A$="C" THEN GOSUB 3450 
EN 1320 GOSUB 3678 
TV 1330 GOTO 888 
IL 1340 GRAPHICS 8: SETCOLOR 2, O, 12 : SETCOL 

OR 1,0,4:SETC0L0R 4,8,2 
YR 1358 ? "If":? " 

PE 1368 VAR=l:W=8 

AL 1378 ? "DISTANCES ARE IN ";Z$;" AND AR 

WO 1388 SETCOLOR 4,8,2:? "BASED ON ";S:" 

";Z$;" DIA. FOR SOL" 
OM 1398 IF M=8 AND A$="M" THEN ? 
EJ 1488 ? " 

LN 1418 R=8. 869921 

DD 1428 IF M<>8 THEN 1448 

IT 1438 ? I? " ";Z$;" DISTANT FROM S 



AUGUST 1988 • A.N.A.L.O.G. COMPUTING 



OL":GOTO 1450 

1448 ? :? :? " ";ES;" DISTANT FRO 
M SOL" 
VC 1450 X=INTCCS*Bl/R*VARl*100+0. 51/100:? 

• ** M MERCURY M ■ X 

T0 1460 X=INTCCS*ci/R*GflR)*ieO+0. 51/100:? 

11 VENUS ";X 

WF 1470 X=INTCCS*Dl/R*VARl«10e+0. 51/100:? 

" EARTH "jX 

NX 1480 X=INTCCS*E1/R*VAR]*10O+O. 51/100:? 

I ii MARS " ' K 

UT 1490 X=INTCC5*Fi/R*UARi*io+0. 51/10:? " 

JUPITER ■ ■ ■ ■ i " ■ X 

DC 1500 X=INTCt5*Gi/R»UARj*10+0. 51/10:? " 

SATURN ";X 

FE 1510 X=INTCCS*Hl/R*VARl*10+e. 51/10:? " 

URANUS ";X 

OZ 1520 X=INTCCS*Il/R»VARl*10+0. 51/10!? " 

NEPTUNE •■■■•■•■I ""X 
IX 1530 X=INTCC5*Ji/R*UARi*10+0. 51/10:? " 

PLUTO ";x 

LV 1540 POKE 838,175:P0KE 839,242 
RN 1550 IF A$="P" THEN GRAPHICS 0: SETCOLO 
R 2,0,12:SETC0L0R 1, 0, 4 : SETCOLOR 4,8,2 
:A$="M":? !? SGOTO 1380 
CL 1560 GOSUB 3620 

AG 1570 POKE 8 2, fl: POKE 83,40 

HI 1580 ? :? "■ ■■■■■■■■■■■■■I 

DD 1590IFWO0 THEN 1610 

IU 1600 ? " fl PRINT O CONVERT UO 

N":GOTO 1620 
GU 1610 ? " O PRINT" 
HJ 1620 ? " RERUN" 
RV 1630 ? " Q MAIN MENU" 
XH 1640 ? " SEL 

ECT "; 
IX 1650 POKE 82.2:P0KE 83,39 
DO 1660 INPUT AS 

OU 1670 IF A$="P" THEN GOSUB 2780 
GY 1680 IF A$="P" THEN 1380 
HP 1690 IF A$="R" THEN A$="S" : GOTO 690 
JH 1760 IF A$="M" THEN 540 
UQ 1710 IF MOO THEN A$="S"iG0T0 690 
CG 1720 IF A$="C" THEN GOSUB 3450 
EY 1730 GOSUB 3670 
SY 1740 GOTO 1380 

XR 1750 REM EARTH TABLE GENER ATOR 

TJ 1760 ?" *":? :? » ■=ftV»!M:r : Wr3Tl 

TE 1770 ? :? :? :? :? " 

UJ 1780 ? :? "WHAT IS SCALE EARTH DIAMETE 

R?" 
XV 1790 ? :? " CEnter a nuMberl" 
PT 1800 ? : INPUT S 
YP 1805 VAR=i 
MM 1810 ? i? "WHAT IS UNIT OF MEASURE (UO 

Ml?" 
HO 1820 ? :? " CFor UOM, enter MILES, F 

EET," 
OB 1830 ? " INCHES, MILLIMETERS or any 

U0M1" 
QK 1840 ? : INPUT Z$ 
MT 1850 ? "H": SETCOLOR 4,8,2:? "DIAMETERS 

OF SOLAR SYSTEM BODIES" 
DR 1860 ? "WITH EARTH AT ";S;" ";Z$;" DIA 

METER" 
FM 1870 ? " 

PM 1890 ? " DIAMETERS IN ";Z$ 

YE 1900 X=S*L/D:X1=INTCX*10O0+O. 51/1000:? 

; ? " SOL "; X1*VAR 

XV 1910 X=S*B/D:Xl=INTCX»100+9. 51/100:? " 

MERCURY "; Xi*VAR 

T4 1930 X=S*C/D:Xl=IHTCX*100+0. 51/100!? " 

VENUS ",' X1*VAR 

XM 1950 X=S*D/D:X1=INTCX*100+O. 51/100:? " 

EARTH ";Xi*VAR 

LD 1970 X=S*K/D:Xl=INTtX*100+0. 51/100:? " 

LUNA ";X1*VAR 

PN 1990 X=S*E/D:Xl=INTCX*100+0. 51/100:? " 

MARS ";X1*VAR 

PD 2010 X=S*F/D:X1=INTCX*100+O. 51/100:? " 

JUPITER "; X1*VAR 

XA 2030 X=S*G/D:X1=INTCX*100+O. 51/100:? " 

SATURN " : X1*VAR 



ZB 2050 X=S*H/D:X1=INTCX*10O+O. 51/100:? " 
URANUS. ";X1*VAR 

KB 2070 X=S*I/D:X1=INTCX*10O+O. 51/100:? " 
NEPTUNE ";X1«VAR 

BA 2090 X=S*J/D:X1=INTCXM108+O. 51/100:? " 
PLUTO ";XlttVAR 

LF 2110 POKE 038,175:P0KE 839,242 

YG 2120 IF A$="P" THEN GRAPHICS 8 : SETCOLO 
R 2,0,12:SETC0L0R 1, 8, 4 : SETCOLOR 4,8,2 

:A$="M":? :? :goto 1850 
BV 2130 GOSUB 3620 

ZQ 2140 POKE 8 2,0:P0KE 83,40 

GS 2150 ? :? "■— ■—■■■— — — 

HA 2160 ? " Q PRINT" 

HP 2170 ? " RERUN" 

SB 2180 ? " H MAIN MENU" 

XN 2190 ? " SEL 

ECT "J 
IB 2200 POKE 82.2:P0KE 83,39 
CS 2210 INPUT A$ 

NY 2220 IF A$="P" THEN GOSUB 2780 
IE 2230 IF A$="R" THEN A$="E":GQTO 690 
JK 2240 IF A$="M" THEN 540 
EV 2250 GOSUB 3670 
TO 2260 GOTO 1850 
KU 2270 REM SOLAR SYSTE M TABLE GENERATOR 

XO 2280 ? "W ":? :? " KEH33BHuaiM3iEI 

Mli^M'l" 
TB 2299 ? : ? : ? : ? : ? " — ^^-^^^ 

■■ 

UJ 2300 ? :? "WHAT IS SCALE SOLAR SYSTEM 

DIAMETER?" 
m 2310 ? :? " CEnter a nunberl" 
PO 2320 ? : INPUT S 
OW 2330 VAR=l:W=0 
MM 2340 ? :? "WHAT IS UNIT OF MEASURE CUO 

Ml?" 
RQ 2350 ? :? " CFor UOM enter MILES, FE 

ET," 
OB 2360 ? " INCHES, MILLIMETERS or any 

U0M1" 
QK 2370 ? :INPUT Z$ 
LV 2380 ? ""S" 
YO 2390 SETCOLOR 4,8,2:? "SOLAR SYSTEM DI 

fy = ■■ • 5 z$ 

CZ 2395 IF WOe' THEN 2410 

QF 2400 ? "CBased on Pluto's Mean Orbit)" 

EN 2410 ? " 

DX 2420 IF WOO THEN 2440 

PO 2430 ? " DISTANCE IN ";ZS;" FROM SO 

L":GOTO 2450 
JB 2440 ? " DISTANCE IN "jES;" FROM SO 

L" 
EU 2450 R=Jl/0.5 
JG 2460 X=SttBl/R:Xl=INTCX*lO08+0.5)/ieee: 

? : ? " MERCURY "; X1*VAR 

VN 2470 X=S*Cl/R:Xl=INTCX«1000+0.51/lOee: 

? " VENUS "; X1*VAR 

XH 2480 X=5*Dl/R:Xl=INTCX*1000+e. 51/1000: 

? " EARTH "; X1*VAR 

NN 2490 X=S*El/R:Xl=INTCX*lO8O+0. 51/1000: 

? " MARS ";X1*VAR 

VP 2568 X=SKFl/R:Xl=INTCX«1888+8.51/ieee: 

?" JUPITER ";X1*VAR 

BN 2510 X=S*Gi/R:Xl=INTCX*1888+8. 51/1000: 

?" SATURN ";X1*UAR 

DN 2520 X=S*Hl/R:Xl=INTCX*10ee+8. 51/1880: 

?" URANUS ";X1»VAR 

PM 2530 X=S*Il/R:Xl=INTCX*lB08+8.51/ieeO: 

? " NEPTUNE ";Xi*VAR 

PP 2540 X=S*Ji/R : X1=INT CX«108O+0 . 51 /1000 ! 

? " PLUTO. {Mean Distl . . ";X1*VAR 
SH 2550 X=S*Kl/R:Xl=INTCX*lO0+0. 51/100:? 

!? " ALPHA CENTAURI... ";X1*VAR 
MC 2560 POKE 838, 175: POKE 839,242 
KD 2570 IF AS="P" THEN GRAPHICS 0: SETCOLO 

R 2,0,12iSETC0L0R 1, 8, 4 : SETCOLOR 4,8,2 

:A$="M":? :GOTO 2390 
CS 2580 GOSUB 3620 

AN 2590 POKE 8 2,0:P0KE 83,48 

GN 2688 ? :? .■ B g BMMM> j M fr MMM> j aMMBMa | 

ER 261^IFW<^» THEN 2638 

00 2620 ? " a PRINT O CONVERT UO 
M":GOTO 2640 
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II 



Solar System Scaler 



HB 2630 ? " lj PRINT" 

HO 2648 ? " Q RERUN" 

SC 2658 ? " El MAIN MENU" 

XO 2668 ? " SEL 

ECT "; 
JE 2678 POKE 82.2:P0KE 83,39 
DV 2688 INPUT AS 

PB 2698 IF A$="P" THEN GOSUB 2788 
HV 2788 IF AS="P" THEN 2390 
XS 2718 IF AS="R" THEN AS="SS" : GOTO 698 
JO 2720 IF AS="M" THEN 540 
OL 2730 IF W<>0 THEN AS="SS" :GOTO 690 
CN 2740 IF AS="C" THEN GOSUB 3450 
FF 2750 GOSUB 3670 
UD 2760 GOTO 2390 

UK 2770 REM SCREEN PRINT SUBROUTINE 
QJ 2788 DSPI=PEEKC838) iDSP2=PEEKI839) 
RF 2798 POKE 838, PEEK CS8422) : POKE 839, PEE 

K £58423) 
KO 2800 ? :? 
AT 2818 RETURN 

YI 2828 REM EARTH GLOBE GENERATOR 
NT 2838 B2=12:D3=8.62137:REM EARTH IS 12 

INCHES; KILO=MILEAGE 
RP 2848 TRAP 2838 
QG 2845 POKE 752,1 
FI 2858 ? "IS":? " | 

" " 

zk 2868 ? " i rn»<:w:rt:mcM»im*fcW;i:ra 

ZU 2878 ? " ' 

LH 2888 ? :? :? :? :? " BEi SCALE DIST 
ANCE TO ACTUAL DISTANCE C 

ALCULATIONS" 

«U 2898 ? :? " CBi ACTUAL DISTANCE TO 
SCALE DISTANCE CALCULATIO 

NS" 

N 2988 ? :? " HE] RETURN TO MAIN MENU 

I ■■ 

JV 2918 POSITION 19,21!? " " 

OC 2928 POSITION 1,19:? :? " ENTER SELECT 

ION "; 
CM 2938 INPUT tt3,A$ 
VJ 2948 IF AS="SD" THEN 2978 
BP 2958 IF A$="AD" THEN 3218 
CJ 2968 IF A$="999" THEN 548 
UJ 2965 GOTO 2838 

ih 2978 ?''*''■? "33 BgTJaEEBECHMEESD 

AF 2988 ? ' 

snsM" 

KU 2998 ? :? !? " 

UN 3888 ? "If distance is in feet, enter 

FT" 
TK 3818 ? :? " If distance is in inches, p 

ress Emmaa" 

TA 3828 POKE 752, 8: INPUT AS 

CK 3838 IF A$="FT" THEN GOTO 3488 

HP 3848 IF A$<>"FT" THEN GOTO 3858 

VA 3858 ? :? "Enter the distance in inche 

s" 
MB 3868 ? : INPUT C3 
AA 3878 ? "IS":? "HJJ" 
TR 3888 ? »============rr==z========z==== 

— — — — — —I • & 

LC 3898 ?' "SCALE"!? "DISTANCE IS: ";C3;" 

INCHES" 
NI 3188 ? " ";C3/12;" FEET" 

JG 3118 ? I* ":::""::::::r::::z:::::::: 

MN 312e~X=INTCD*C3/B2) : X3=INT CD*C3/B2/D3) 
GZ 3138 ? !? "ACTUAL"!? "DISTANCE IS: ";X 

;" MILES" 
OF 3148 ? " ";X3j" KILOMETERS 

II 

JS 3158 ? :? "::::r;z";-:::;:::~:~r:~ 

GP 316e"?"7? :? :? "Press HaHEd :" 

DX 3178 ? :? " >1 Tine To Continue To EH 

I Routine" 
DB 3188 ? " >2 Tines To Return To in Sub 

menu" 
EE 3288 POKE 752,8:? : INPUT A$ 



IG 3218 ? "IS" :? "EE 

GEOGMr - 

HJ 3228 ? 



ACTUAL DISTANCE TO E 



IN A 12 INCH EARTH-GLOBE SV 



12 INCH EARTH-GLOBE SYSTE 



XZ 3238 ? :? :? "Enter the actual Miles' 

JA 3248 POKE 752,8! INPUT C3 

WD 3258 ? :? " 



US 3268 X=INTCCB2*C3/D)*188+0. 51/100 

CK 3278 X5=INTCCB2*C3/D/ r 12)*188 + 8.5}/188 

WL 3288 X6=INTC(B2*C3/W12/5288)*1888 + 8.5 

J/1009 
LB 3298 ? !? "SCALE "!? "DISTANCE IS: "; 

Xj" INCHES" 
OL 3388 ? " ";X5J" FEET" 
XV 3318 ? " ";X6;" MILES" 
UM 3328 ? :? "- 



AH 3338 ? :? :? :? "To Rerun GE, Enter: 
EH" 
? "To Return To WVM Submenu 



PK 3348 

|TT?TT1 " 
AH 3358 

I" 
BX 3368 
QY 3378 
MI 3380 
UA 3390 
JL 3488 

vert" 

IV 3418 
ZL 3428 
RQ 3438 
GV 3440 
ZB 3450 

OR 1, 
UJ 3460 



? "To Return To Main Menu: 



ITTW1 

BE 



? : INPUT AS 

IF AS="AD" THEN GOTO 3210 

IF A$="999" THEN GOTO 540 

GOTO 2848 

? :? "Enter number of feet to con 

POKE 752,8:INPUT C3 

C3=C3*12 

GOTO 3870 

REM MAIN CONVERSION SUBROUTINE 

GRAPHICS OiSETCOLOR 2, 0, 12 iSETCOL 

0,4SSETCOLOR 4,9,8 

I 



! * 



[CONVERSION SUBMENU | " 
!? "SELECT THE DESIRED CONVE 



LR 


350O 


t 


: * 


BO 


SM 


3510 


•> 


:? 


II 


OH 


3520 


? 


:? 


00 


RH 


3525 


'/ 


:? 


■ ■ 


RB 


3527 


t 


:? 


■ 1 


GG 


3530 


■5 


:? 


f 



HJ 3462 ? " 

CG 3464 ? " 

JQ 3470 ? :? 

RSION:" 

KP 3475 ? "CCurrent UOM is ";ZS;")" 

SM 3488 ? :? " I FEET T8 INCHES" 

DK 3498 ? :? " Q INCHES TO MILLIMETERS 
ii 

MILES TO FEET" 
FEET TO MILES" 
INCHES TO FEET" 
INCHES TO MILES- 
MILES TO INCHES" 
■ INPUT M 

3548 ON M GOTO 3550, 3568, 3578, 3588, 359 

8,3595,3597 
XN 3558 VAR=1 2i? "IS":? ■■ MilIL'J i\i Jil 

ffiMEEGIH " : E$="INCHES" : GOTO 3688 

■m;iim inn;a •> : e$=»millimeters" : got 

3600 
NR 3570 VAR=528 8:? "IS":? " Mi lJ UJi; ! 

DaiMI!MOai":ES=»FEET":G0T0 3689 
JU 3588 VAR=l/ r 5288 :? "15":? " Hi l JL ' J 

ia:lia»ti»^<l^t ■■ : ES="MILE5" : GOT O 3608 
IW 3598 VAR-1/1 2:? "IS":? " MiHUM: ] 

DHiMilMiIll":E$="FEET":GOTO 3688 
EI 3595 VAR=1/12/5288 : J > "IS":' " (S 

[■KHMilH ^liMIHN*! ■• : E$="MiLES" : GOTO 36 

88 
XK 3597 UAR=12*5288: » "IS":' " EEEI 

88 
AN 3688 RETURN 

BM 3618 REM DISPLAY INTERUPT SUB 
NV 3628 RESTORE :START=PEEK [5681 +PEEK 1561 

)«256:P0KE START+22,138 
RI 3638 PAGE=1536:F0R PGM=PAGE TO PAGE+18 

:READ BYTE:POKE PGM, BYTE : NEXT PGM 
JU 3648 DATA 72,169,142,141,18,212,141,24 

,288,184,64 
MF 3658 POKE 512,0:POKE 513,6:P0KE 54286, 

192 
BF 3660 RETURN 
HM 3678 IF AS="P" THEN 3738 
BP 3688 IF AS="D" THEN 3738 
IS 3698 IF AS="R" THEN 3738 
FG 3788 IF AS="M" THEN 3738 
AJ 3718 IF A$="C" THEN 3738 
RC 3728 GOTO 548 
AY 3738 RETURN fl 
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GameDesisn 
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by Craig Patchett 

An Introduction 

Hi, and welcome to the column! This 
is just a brief introduction to let you know 
what we're going to be doing together in 
the pages to come. 

Chances are that one of the biggest rea- 
sons you bought your computer (whether 
you admit it or not) was to play games. 



Then somewhere along the way you dis- 
covered programming, and then came the 
realization that, "Hey, even I could write 
a game if I only knew how." Well, maybe 
it didn't happen quite like that, but I'm 
sure you know what I mean. In any case, 
it's true that writing a game isn't really 
that difficult, at least not a simple game. 
But unfortunately there aren't too many 
people willing to explain the techniques 
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involved. You know what I mean, right? 
After all, chances are you've read all about 
graphics already, but there's quite a differ- 
ence between making a spaces-hip fly 
around the screen and putting it into a 
game. That's why this column is here: to 
explain how to tie everything — including 
graphics, animation, and sound — 
together into a complete graphics game. 
I'll be assuming that you already know the 
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basic techniques involved in player/missile 
graphics, redefining the character set, dis- 
play lists and so forth. Although the up- 
coming columns do include review 
sections on the topics they cover, it will 
help you tremendously if you have some 
previous knowledge. 

So much for the graphics. What about 
the language? We are going to be using 
BASIC. I'm sure you've read plenty of ar- 
ticles claiming that a good arcade-style 
game can't be written in BASIC, and it's 
true. So to help you overcome this obsta- 
cle, I've included a variety of machine- 
language routines that can be used from 
BASIC quite easily. Rest assured that you 
don't have to know any machine language 
in order to use these routines, and they've 
been designed so that they'll work in a 
number of different situations, not just 
the game we'll be designing in this 
column. 

Even with the machine-language help, 
it's still true that BASIC will not allow you 
to do games as complicated as Donkey 
Kong or Defender, at least not with the 
speed of the arcade versions. So the ques- 
tion comes up as to what would be a good 
game to use as an example. We need 
something that utilizes as many of the 
graphics tricks as possible, while at the 
same time isn't too complicated so as to 
slow things down to a ridiculous rate. Also, 
it should ideally be something familiar, so 
that it is immediately clear how things 
should be working. What, if anything, fits 
these conditions? We decided on Invaders 
as our model. 

Graphics fundamentals 

A big part of computer graphics, and 
one that not many people think about, is 
the television set. After all, we're not draw- 
ing on a piece of paper, and the way that 
a TV set works has a lot to do with what 
the computer puts on the screen. More 
importantly, it has a lot to do with how the 
computer puts things on the screen. So, 
as one final step before we actually start 
going wild, let's take a good look at that 
screen. 

The Screen 

Let's begin with the basics, since I can't 
think of a better place. Do you know what 
the screen is made of? Well, I know that 
glass is probably the most obvious answer, 
but it goes much further than that. Look 
at the screen of a TV set that's not on. See 
how the back of the glass is coated with 
something? That something is called 
"phosphor." The neat thing about phos- 
phor is that it glows when you hit it with 
electrons. The more electrons that hit it, 
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the brighter it glows (don't worry if you 
don't, know what electrons are, just think 
of them as real tiny pellets. . .real tiny). 

Behind the screen (near the back of the 
TV set), there is an electron gun that 
shoots a beam of electrons at the screen 
to make it glow. Pretty simple so far, right? 
This beam is pretty small and can only 
hit a small dot of phosphor at any one 
time. In order for it to make all of the 
phosphor on the screen glow, then, it 
scans the screen, much in the same way 
as we scan a book while reading. The 
beam starts at the upper left-hand corn- 
er of the screen and goes all the way over 
to the right-hand side, drawing a line as 
it goes. This line is called, appropriately, 
a "scan line" (if you look closely at your 
screen, you can see these lines; don't look 
for too long, though). When it gets to the 
right-hand side of the screen, the beam 
turns off and moves over to the beginning 
of the next line, where it preceeds to draw 
the next line. This happens over and over 
again until the beam has drawn the en- 
tire screen. (See Figure 1.) 

There are over 200 lines that have to 
be drawn, but the beam gets it all done 
in less than 1/60 of a second! Unfortunate- 
ly, the phosphor won't glow forever, and 




by the time the beam reaches the bottom 
of the screen, the top is starting to fade. 
So the beam turns off, goes back to the 
top again and starts over. This means that 
the screen actually gets drawn 60 times 
a second. Now this may sound like a pain 
in the you-know-what, but it actually turns 
out to be somewhat of a blessing. You've 
probably seen, in one form or another, 
those little cartoon books that you flip 
through to make the pictures look like 
they're moving, right? Movies work the 
same way. They show you a picture, then 
blank the screen and show you another 
one that's just a little bit different. This 
is what creates the illusion of motion. 
Thus, if a different picture is drawn on 
the screen each time the beam goes over 
it, we can create motion. If the beam 
didn't redraw the screen so rapidly, we'd 
just have an expensive slide show. 

Alright, now you know the basics of tel- 
evision, but what does this have to do with 
computers? Quite a bit, actually, as you'll 
soon see. If you're programming from 
BASIC, then all you need to worry about 
is knowing the various terms. We'll go over 
those in a second. Machine-language 
programmers, on the other hand, are 
programming in a language that works 
almost as fast as the electron beam, so 
they can have greater control over the 
screen. That's why so many incredible 
things can be done from machine lan- 
guage that can't be done from BASIC. 
Machine-language programmers need to 
know exactly how the beam draws the 
screen, because they can take advantage 
of it. So if you're a BASIC programmer, 
this short instruction to the world of the 
TV set has been a learning experience 
(surprise). If you program in machine lan- 
guage, there's a lot more you can learn if 
you really want to be able to make the 
computer say "Uncle." Not many people 
do. 

Terms, terms, terms. Actually, in this 
column there are only a few that we'll be 
using, but the above explanation of the 
TV set was necessary for you to be able 
to completely understand what they 
mean. So, without any further ado, here 
they are: 

Scan Line: This one you already know. 
A scan line is simply a horizontal line on 
the screen, as drawn by the electron beam. 
The screen is made up of several hundred 
scan lines, one on top of the other. 

Vertical Blank: Also known as 
VBLANK and Vertical Refresh. I prefer 
VBLANK. In any case, VBLANK is the 
time during which the electron beam is 
off and on its way from the bottom of the 
screen back to the top. It happens 60 
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times a second, since that's how often the of one scan line to the beginning of the terms a lot, especially "scan line" and 

beam draws the screen. next. HBLANK happens a lot more often "VBLANK," so please make sure they be- 

Horizontal Blank: Also known, strange- than VBLANK (over 200 times more come a part of your vocabulary. 

ly enough as HBLANK and Horizontal often). 

Refresh. Guess which I prefer! HBLANK Well, that's it! That's right, all of this for 

is the time during which the electron only three simple terms. In the columns A little bit more 

beam is off and on its way from the end ahead, however, you'll be seeing these This section is for those of you with a 




Figure 1. 



Figure 2. 



TEXT MODES SUMMARY 



Display Type 


Graphics 

Mode 
Number 


Screen 

Size 

(column x 

rows) 


Memory 

Used 

(bytes) 


Colors 
Available 


Foreground 

Color 

Register 


Background 

Color 

Register 


Border 

Color 

Register 


Normal text 





40 X 24 


992 


1 color 
2 luminances 


1 


2 


4 


Double-width 
text 


1 


20 X 20, split 
20 X 24, full 


674, split 
672, full 


5 


0,1,2,3 


4 


4 


Double-width, 
double-height 
text 


2 


10 X 20, split 
12 X 20, full 


424, split 
420, full 


5 


0,1,2,3 


4 


4 


Multicolor 
text 


12 


40 X 20, split 
40 X 24, full 


992 


5 


0,1,2,3 


4 


4 


Large multi- 
color text 


13 


40 X 10, split 
40 X 12, full 


512 


5 


0,1,2,3 


4 


4 



Table 1 



Table 2 



Column 1 


Column 2 


Column 3 


Column 4 


ff 


CHR 


ff 


CHR 


ff 


CHR 


ff 


CHR 


a 


CHR 


» 


CHR 


ff 


CHR 


ff 


CHR 





Space 


16 





32 


@ 


48 


P 


64 


O 


80 





96 


Q 


112 


P 


1 ! 


17 


1 


33 


A 


49 


9- 


65 


o 


81 


13 


97 


a 


113 


q 


2 


»> 


18 


2 


34 


B 


50 


R 


66 


m 


82 


Q 


98 


b 


114 


r 


3 


it 


19 


3 


35 


C 


51 


S - 


67 


a 


83 


O 


99 


c 


115 


s 



Q. 
O 
O 



< 

>. 
D. 
O 

o 

© 

c 
o 
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4 


$ 


20 


4 


36 


D 


52 


T 


68 


o 


84 


a 


100 


d 


116 


t 


5 


% 


21 


5 


37 


E 


53 


U 


69 


a 


85 


o 


101 


e 


117 


u 


6 


&> 


22 


6 


38 


F 


54 


V 


70 


a 


86 


n 


102 


f 


118 


V 


7 


23 


7 


39 


G 


55 


w 


71 


S 


87 


o 


103 


6 


119 


w 


8 


( 


24 


8 


40 


H 


56 


X 


72 


B 


88 


a 


104 


h 


120 


X 


9 


) 


25 


9 


41 


I 


57 


Y 


73 


B 


89 


CI 


105 


i 


121 


y 


10 


* 


26 


42 


J 


58 


Z 


74 


(3 


90 


o 


106 j 


122 


z 


11 


+ 


27 


43 


K 


59 


[ 


75 


U 


91 


°a 


107 


k 


123 


O 


12 


28 


< 


44 


L 


60 


\ 


76 


LB 


92 


a 


108 


1 


124 1 


13 


— 


29 


= 


45 


M 


61 J 


77 


a 


93 


a 


109 


m 


125 


ti 


14 


- 


30 


> 


46 


N 


62 


A 


78 


s 


94 


a 


110 


n 


126 


"4 


15 


/ 


31 ? 


47 


O 


63 


79 


a 


95 


o 


111 


o 


127 


"► 



0> 

>1 
d 
o 
O 

© 



1. In mode these characters must be preceded with an escape. CHRSI27), to be printed. 



Table 3 



ATASCII 
CHARACTER SET>^' / 



o^^' 



/ 


A & 


/ 


□ 


13 


> 


a 


a 


14 




s 


ii 


15 


f 


a 


a 


1G 





Q 


a 


17 


' 


e 


a 


18 


2 


D 


a 


19 


3 


a 


ss 


20 


4 


a 


B 


u 


5 


B 


e 


Z2 


6 


» 


a 


23 


7 


Q 


u 


M 


18 


a 


19 


25 


19 


a 



$ 


/ 


1A 


O 


IB 


a 


.0 


Q 


ID 


O 


IE 


□ 


IF 


o 


20 


Space 



■& 
m ** 



jf 



try 



f»&. 



105 £9 



106 6A 



107 Glf 



108 GC 



□ 

n 
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little bit of curiosity. You don't need to 
read it, but you may find it interesting 
nonetheless. Way back near the beginning 
of this column, I mentioned that the 
greater the number of electrons that hit 
the phosphor on the screen, the brighter 
the phosphor glows. What I didn't say was 
that this is very important to the creation 
of the picture. After all, a black and white 
picture isn't all black and white, is it? 
There are all kinds of grays as well. 

As the electron beam scans the screen, 
its intensity varies, thus varying the num- 
ber of electrons that hit the screen. This, 
in turn, causes the brightness of the 
screen to vary between black (no elec- 
trons) and white (lots of electrons), allow- 
ing for all the shades of gray. This is how 
a black and white picture is created. 

But what about color? Well, color pic- 
tures are nothing more than black and 
white ones with color added. Now I know 
that sounds kind of obvious, but it's an 
important thing to keep in mind. A color 
picture is drawn in exactly the same way 
as a black and white one, except in color. 
The question remains, of course, as to 
how that color is created. 

If you take a close look at the screen 
of most color TVs, you should be able to 
see little red, green and blue stripes. 
These stripes are so small that their colors 
blend together when you look at the 
screen from a normal distance. Some of 
you may know the significance of these 
three colors already. We call them the 
electronic primary colors because all 
other known colors can be created by 
mixing one or more of the three together. 
For example, mixing yellow with blue 
gives green, and yellow with red gives 
orange Can you see now what's going on? 
A color TV actually draws three pictures 
on the screen; a red and white one, a 
green and white one and a blue and white 
one. The three blend together to give you 
a genuine full-color picture. (See Figure 

2.) 

And you thought it was something com- 
plicated! Anyway, that's about all I want- 
ed to tell you about your television set. If 
you have a monitor, don't worry — the bas- 
ic principals are the same. 

Screen memory 

So far we know that a TV picture is 
drawn with an electron beam that scans 
across the screen. But how does the beam 
know what needs to be drawn? In the case 
of regular TV, it receives a signal from 
your antenna or cable system. In the case 
of the computer, the computer itself sends 
out the information. Inside your Atari is 
a chip called GTIA which is responsible 



for controlling the electron beam. Actu- 
ally, it just controls the intensity of the 
beam. As you might recall, the more in- 
tense the beam, the brighter the phos- 
phor; so a picture is drawn by rapidly 
varying the intensity of the beam. Anyway, 
that's GTIA's responsibility. GTIA, 
however, still needs to know what it's sup- 
posed to be telling the electron beam, 
right? Somewhere inside the computer 
then, there must be a description of what 
the screen is to look like. There is, and it's 
in a special section of memory called, 
strangely enough, screen memory. In this 
section, we're going to take a look at how 
screen memory works. 

Before we get into the heavy details, 
let's look at the basic idea. Screen 
memory is made up, like all other 
memory, of a whole bunch of bytes. In 
one way or another (we'll get into it later), 
GTIA looks at these bytes, interprets 
them, and then sends the information to 
the electron gun. The first byte in screen 
memory will determine what the upper 
left-hand corner of the screen will look 
like, the last will determine what the low- 
er right-hand corner looks like. That 
should make sense, of course, since that's 
the order that the electron gun would ex- 
pect. Depending on the graphics mode 
being used, the screen can be anywhere 
from ten to 40 bytes across, and from 12 
to 192 down. We'll see why in a little bit. 
For now, let's take a look at just how GTIA 
interprets the bytes in screen memory. 

Character-graphics modes 0, I & 2 

We'll begin by taking a look at the 
character-graphics modes (GRAPHICS 
0/1/2). In these modes, there is one byte 
in screen memory for each possible 
character on the screen. This is summar- 
ized in Table 1. 

Do you know what ATASCII values are? 
Each Atari character has a number as- 
signed to it, between and 255, and these 
numbers are called ATASCII (ATAri Stan- 
dard Code for Information Interchange) 
values. You've also probably heard of 
something called the "Internal Values." 
The internal values are what we are in- 
terested in, since these values are the ones 
used by screen memory and GTIA. (See 
Tables 2 and 3.) As a matter of fact, all 
screen memory in the character modes is 
a list of these internal values. GTIA looks 
at this list, sees what is currently on, then 
looks into another list called the "charac- 
ter set" (we'll go over the character set in 
a future column) to see what this partic- 
ular character looks like GTIA then sends 
this information to the electron gun 
which in turn causes the beam to draw the 



character (it's not really quite that simple, 
but this is all you need to understand). 
Why don't we see an example of this in 
action. First we'll find out where screen 
memory is. The following line will do the 
trick for us: 

180 SCRMEM=PEEK(88)+PEEKC89)« 
256 

Memory locations 88 and 89 hold the 
address of the beginning of screen 
memory. 

Now let's try POKEing the internal 
value for "HI" into screen memory. The 
letter "H" has an internal value of 40, and 
"I" has an internal value of 41. So we do 
the following: 



110 POKE SCRMEM, 40: POKE SCRM 
EM+1,41 



Violal We've now changed screen 
memory. If you don't have the word "HI" 
in the upper left-hand corner of your 
screen right now, it's probably because 
your screen is full and it got scrolled off. 
Add the following line to the program 
and try again: 

99 GRAPHICS 8 

What if we wanted to have "HI" writ- 
ten vertically instead of horizontally? Try 
making the following change: 



110 POKE SCRMEM, 48: POKE SCRH 
EM+40,41 



Do you understand why we added 40 
to SCRMEM to get the "I" to print below 
the "H"? Remember that graphics mode 
has 40 characters on each line, and that 
each character takes up one byte in screen 
memory. That means that the first charac- 
ter on the second line is the 41st byte in 
screen memory. SCRMEM is the address 
of the first byte, so SCRMEM + 40 is the 
address of the 41st. Now try changing 
Line 99: 

99 GRAPHICS 1 

What happened? Now the "I" is two 
lines below the "H." You should be able 
to figure out why by yourself this time, but 
I'll give you a hint just in case: There are 
only 20 characters on a graphics mode 1 
line. 

Before we leave the wonderful world of 
character graphics, we need to bring up 
a few more things. First of all, if you've 
looked at the ATASCII table yet, you've 
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probably noticed that there are only 128 
characters in the character set. But each 
byte in screen memory can hold a num- 
ber between and 255, or a total of 256 
numbers. What about the other 128 
characters? Well, if GTIA sees a character 
value greater than 127 (in other words, if 
bit seven is set) then it takes the value, sub- 
tracts 128 from it to get a new value, and 
then puts the character with this new 
value up on the screen in inverse video. 
Inverse video is what you get when you 
type a character after pressing the inverse 
key (the key with either the Atari logo or 
a half-full square on it, depending on 
which Atari computer you have). So, for 
example, an inverse video "H" would have 
a value of 168 (40 + 128). 

As if that's not enough, we still have 
something else to clear up; only this time 
it concerns graphics modes 1 and 2. In 
these modes, you can only use half the 
character set at a time (either uppercase 
and numbers or lowercase and graphics), 
and there is no inverse video. Why? Be- 
cause in these modes, bits six and seven 
of the character values are used to speci- 
fy the character color, which means that 
characters in these modes can be one of 
four colors. Here's how it works: GTIA 
gets the character value and looks at bits 
six and seven. Then, depending on how 
the bits are set, it goes to one of the Atari 
color registers to see what color is desired 
and puts the character up on the screen 
in that color. A color register is just a 
memory location that affects the colors 
of objects on the screen. When you use 



the SETCOLOR command, you are actu- 
ally just setting the value in one of the 
registers. Anyway, here's a list of the differ- 
ent bit combinations and the color 
registers they refer to: 



BITS 


REGISTER 


LOCATION 


00 





708 


01 


1 


709 


10 


2 


710 


11 


3 


711 



Here's a simple program that will put 
the letter "H" on the screen in all four 
colors: 

180 GRAPHICS 2 

110 SCRMEM=PEEKC88)+PEEKC89) 

*256 

128 POKE SCRMEM+1,48 

130 POKE SCRMEM+2, 40+64 

140 POKE SCRMEM+3, 48+128 

150 POKE SCRMEM+4, 40+192 

After running this program, you might 
like to play with the SETCOLOR com- 
mand to see the effect of changing the 
various color registers. By the way, to 
switch to lowercase, try POKE 756,226. 
Use POKE 756,224 to get back to up- 
percase. 

Now that we (hopefully) have a grasp 
of how GTIA and screen memory work 
with characters, let's take a look at graph- 
ics. We'll start with graphics mode 8, since 
it's a little easier to understand than the 
others. In graphics mode 8, the screen is 
made up of some 61,440 dots that can be 
turned on or off (320 across by 192 down). 
Does that phrase "on or off' ring a bell? 



We ran across it before when we were talk- 
ing about bits which, I'm sure you'll recall, 
can be turned on or off just like the dots 
on the screen. The way graphics mode 8 
works then, is that each bit in screen 
memory represents a dot on the screen. 
Turn a bit on and the corresponding dot 
will also turn on. Turn it off and, well, you 
guessed it. Because there are 8 bits in a 
byte, and there are 320 dots across a 
graphics mode 8 screen, it takes 40 bytes 
(320/8) of screen memory for each graph- 
ics mode 8 line. That's a total of 7,680 
(40*192 or 61,440/8) bytes of screen 
memory altogether, which is obviously a 
lot better than 61,440! Now this system 
does have its disadvantages, since one byte 
holds eight dots instead of just one. Turn- 
ing individual bits on and off can be very 
frustrating, especially from BASIC. In 
other words, there are very few times 
when you'll want to go in and change this 
kind of screen memory directly. It's a lot 
easier to PLOT and DRAWTO. In one of 
the upcoming columns, however, we will 
see a time when the ability to change it 
directly will come in handy. In the mean- 
time, let's take a look at the other graph- 
ics modes. 

The other graphics modes 

Graphics modes 4 and 6 are similar to 
graphics mode 8 in that each dot can 
either be on or off. Thus screen memory 
works in exactly the same way as we just 
discussed. The difference is that the dots 
are larger, which means there are less of 
them on the screen, which in turn means 



GRAPHICS MODES 4 & 6 SUMMARY 



Display Type 


Screen Size 
(columns x rows) 


Memory Used 
(bytes) 


Default 
Colors 


SETCOLOR 

(n) 


POKE 

address 


COLOR 

(n) 


Graphics 4 
Graphics 6 


80 X 40, split 
80 X 48, full 


694, split 
696, full 


Orange 
Black 



4 


708 
712 


1 



160 X 80, split 
160 X 96, full 


2174, split 
2184, full 



TABLE 4 



Applies to both modes. 



GRAPHICS MODES 3, 5, & 7 SUMMARY 



Display Type 


Screen Size 
(columns x rows) 


Memory Used 
(bytes) 


Default 
Colors 


SETCOLOR 

(n) 


POKE 

address 


COLOR 

(n) 


Graphics 3 


40 X 20, split 
40 X 24, full 


434, split 
432, full 


Orange 
Light-green 

Blue 
Black 



1 

2 
4 


708 
709 

710 

712 


1 
2 

3 



Graphics 5 


80 X 40, split 
80 X 48, full 


1 174, split 
1176, full 


Graphics 7 


160 X 80, split 
160X96, full 


4190, split 
4200, full 



TABLE 5 



Applies to all three modes. 



AUGUST 1988 • A.N.A.L.O.G. COMPUTING 



that screen memory is smaller. Table 4 
summarizes these differences. 

Graphics modes 3, 5 and 7 introduce 
a new twist. In these three modes, not 
only can the dots be on but when they are 
on, they can have one of three colors. This 
means that there are four possibilities for 
each dot instead of just two. How do we 
deal with this? Actually, the solution is 
quite simple; we use two bits for each dot 
instead of just one. Two bits can be ar- 
ranged in four combinations (00,01,10,11), 
which is exactly what we need. So, in the 
four color modes, each byte of screen 
memory holds four dots instead of eight. 
Table 5 has all the information. 

Before we continue, there's something 
I forgot to explain. GTIA knows from the 
two bits which of the four colors to give 
a particular dot, but how does it know 
what the four colors are? After all, the 
Atari has a total of 256 to choose from. 
It turns out we already know the answer 
from our discussion on graphics modes 
1 and 2 above, so there's no point in go- 
ing over it again here. There is a small 
difference, however, in that the bit com- 
binations don't refer to the same color 
registers as they did for the characters. 
The following table shows how it works 
for graphics: 



BITS 


REGISTER 


LOCATION 


00 


BACKGROUND 


712 


01 





708 


10 


1 


709 


11 


2 


710 



We've now covered all the modes except 
three, and those three aren't too tough to 
cover since they work in much the same 
way as the four color modes we just dis- 
cussed. Before we take a look at them, 
however, I should point out that not all 
Atari computers have them. You see, the 
first Ataris to roll off the assembly lines 
didn't have the GTIA chip. Instead, they 
had a stripped-down version called CTIA. 
The only real difference between the two 
chips is that CTIA doesn't have the three 
modes we are going to talk about, name- 
ly graphics modes 9, 10 and 11. 

We'll look at modes 9 and 11 first, since 
they are perhaps a little more straightfor- 
ward than mode 10. In these two modes, 
you can have 16 (count 'em) colors on the 
screen at once, but with a sacrifice. The 
dots are as high as the ones in graphics 
mode 8, but they're four times as wide. 
This makes the screen 80 dots wide by 192 
high. Why are the dots so wide? Well, it 
takes four bits, or half a byte, to store a 
number between and 15, which is what 
is needed to get 16 colors. That translates 




to 32K of screen memory if the dots were 
to be the same size as those in graphics 
mode 8. Even if they were only twice as 
wide as a graphics mode 8 dot, they would 
still need 16K of screen memory. Atari evi- 
dently figured that this was just too much 
memory (there were other more compli- 
cated factors as well). Anyway, that's the 
way things go. 

The screen memory for modes 9 and 
11 works, as you may have suspected, in 
exactly the same way as for the other color 
modes except that now there are four bits 
per dot instead of two. Well, not quite. 
Remember how I said before that there 
are five color registers? If that's true then, 
how do we pick the 16 colors we want to 
use for these two modes? As you proba- 
bly know, the Atari computers give you a 
total of 256 colors to choose from al- 
together, made up of 16 hues (types of 
color) and 16 luminances (brightnesses). 
Sixteen times 16 gives us 256. Sixteen is 
also an awfully familiar number. By no 
small coincidence, graphics mode 9 lets 
us use all 16 luminances (but only one 
hue), and graphics mode 11 lets us use all 
16 hues (but only one luminance). That 
way, in graphics mode 9 we only have to 
store the value of the hue we want in one 
of the color registers (color register four, 
of the background register) and then use 
screen memory to specify the luminance 



of each dot. Similarly, in graphics mode 
11 we store the luminance value in color 
register four and use screen memory to 
specify the hue of each dot. 

Now we have a way to get 16 colors on 
the screen at the same time, but we're res- 
tricted to them all having either the same 
hue or the same luminance. Is there any 
way to get more than five colors on the 
screen without these restrictions? The an- 
swer is yes, and the solution is graphics 
mode 10. Before we look at this mode, 
however, let's take another look at the 
color registers. We saw earlier that there 
are five playfield color registers, with 
"playfield" being a fancy name for any- 
thing that's put on the screen using screen 
memory. So far we haven't seen how to 
put things on the screen in any other way, 
but there is something called "Player/Mis- 
sile Graphics," or "PMG" for short, that 
provides an alternative. I won't go into de- 
tail on PMG here since there is a whole 
column devoted to the subject later, but 
for now you should be aware that there 
are four player color registers in addition 
to the playfield color registers, for a grand 
total of nine color registers in all. Graph- 
ics mode 10 lets you use all of these 
registers to get any nine colors on the 
screen at once. 

You'd think that graphics mode 10 
would take less screen memory than 
modes 9 and 11, right? After all, it only 
has nine colors per dot instead of 16, so 
it should take less bits per dot. Sounds 
good, but unfortunately things don't quite 
work that way. Four bits will hold a value 
between and 15; we already know that. 
But three bits will only hold a value be- 
tween and 7. In order to get nine colors, 
we need to store a value between and 
8 Alas, that means we have to use four bits 
and just not use some of the possible 
values (9 through 15). And this in turn 
means that the dots in graphics mode 10 
are going to be exactly the same size as 
those in modes 9 and 11. This time, 
however, screen memory will work in the 
same way as it did with the four color 
modes, except now all nine color registers 
can be accessed. 

The color registers that don't have a 
SETCOLOR value beside them are the 
player color registers. You'll see how to set 
the color values for these registers in a fu- 
ture column on bit-mapped graphics. 

We've now covered all the modes (Yi- 
pee!), and you should hopefully have a 
good grasp of what screen memory is and 
how it works for each of the 12 graphics 
modes. This knowledge will come in han- 
dy, since the concept of screen memory 
is one that will come up again and again. 
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When you want to talk Atari 



XL/XE HARDWARE 



INTERFACES 

ICD 

P:R Connection 59.99 

Printer Connection 41 .99 

Supra 

1150 38.99 

1151 (1200 XL) 41.99 

Xetec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

COMPUTERS 




Atari 130XE 



$135 



Atari 

65 XE 99.99 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 
Atari 80 Column Card 79.99 

MODEMS 

Atari 

SX212 300/1200 (ST) 89.99 

835 19.99 

XMM301 42.99 

Anchor 

VM520 300/1200 ST Dir. Con. . . .119.00 

Avatex 

1200 HC 89.99 

2400 179.00 

Supra 

2400 Baud XL, XE 169.00 

2400 Baud ST 169.00 

2400 Baud (no software) 149.00 

MONITORS 

Magnavox 

CM8505 14" Composite 199.00 



ST HARDWARE 




ATARI SM1224 RGB *_-_ 

COLOR MONITOR $329 

Includes: 520 ST FM with 3V2" drive 
built-in, mouse, power supply and 
1224 color monitor. 

1040 RGB/Color System 999.00 

1040 Monochrome System 819.00 

1040 Computer (no monitor) 679.00 

520ST FM RGB/Color System . . .789.00 
520ST FM Monochrome System . . . Call 
(Monochrome monitor) 

SM124 Monochrome Monitor 169.00 

SM1224 Color Monitor 329.00 

Atari 

XF551 Drive (XL/XE) 179.00 

AA314 DS/DD Disk (ST) 209.00 



DRIVES 



MMM 





Atari SHD204 *„- 

20 Meg for ST $579 

I.B. 

5V4 ST Drive 209.00 

Indus 

GTS 100 3V 2 " DS/DD (ST) 189.00 

GT Drive (XL/XE) .179.00 

GTS1000 5 1 A" DS/DD ST 199.00 

Supra 

20 Meg Hard Drive (XL/XE) 679.00 

20 Meg Hard Drive (ST) 559.00 

30 Meg Hard Drive (ST) 689.00 



PRINTERS 



Atari 

1027 LQ XL/XE 



.129.00 




Atari XM-M801 *..«~ 

XL/XE Dot Matrix $189 

XM-M804 ST Dot Matrix 199.00 

XDM 121 Letter Qlty. XL/XE . . . .209.00 
Brother 

M-1109 100 cps Dot Matrix 189.00 

M-1409 180 cps Dot Matrix 299.00 

HR-20 22 cps Daisywheel 339.00 

Citizen 

120D 120 cps Dot Matrix 149.00 

180D 180 cps Dot Matrix 179.00 

Premier-35 35 cps Daisywheel . . 479.00 
Epson 

LX-800 150 cps, 80 col 179.00 

Hi-80 4 pen plotter 269.00 

FX-86E 240 cps, 80 col Call 

FX-286E 240 cps, 132 col Call 

LQ-500 180 cps, 24-wire Call 

LQ-850 330 cps, 80 col Call 

EX-800 300 cps, 80 col Call 

NEC 

P2200 pinwriter 24-wire 369.00 

P660 pinwriter 24-wire 459.00 

P760 pinwriter 132 col 659.00 

Okidata 

Okimate 20 color printer 129.00 

ML-182 +120 cps, 80 column . .229.00 
ML-192 + 200 cps, 80 column. .349.00 

ML-193 + 200 cps, 132 col 459.00 

Panasonic 

KX-P1080i 144 cps, 80 col 179.00 

KX-P1091i 194 cps, 80 col 199.00 

Star Micronics 

NX-1000 140 cps, 80 column . . .179.00 

NX-15 120 cps, 132 column 319.00 

Toshiba 

P321-SL 216 cps, 24-wire 499.00 



WE SHIP 90% 
OF ALL ORDERS 
WITHIN 24 HOURS 






SELECT FROM 
OVER 3000 
PRODUCTS 



COMPUTER MAIL ORDER 



you want to talk to us 



XL/XE SOFTWARE 



Access 

Executive Disk 19.99 

Accolade 

Hardball 19.99 

Atari 

Atariwriter Plus 35.99 

Filemanager 1 1 .99 

Music Painter 1 1 .99 




ACCESS 

Leaderboard Golf $13" 

Atari Program Exchange 

Misc. Programs (cassettes) at 1.99 

Broderbund 

Graphics Library I, II, III 13.99 

Printshop 25.99 

Datasoft 

Alternate Reality (dungeon) 25.99 

221 Baker St 20.99 

Electronic Arts 

Touchdown Football 12.99 

Firebird 

Guild of Thieves 16.99 

Silicon Dreams 16.99 

Jewels of Darkness 16.99 

Microprose 

Top Gunner 14.99 

F-15 Eagle Strike 21.99 

Silent Service 21 .99 

Origin Systems 

Ultima 4 36.99 

Roklyn SPECIAL 

Anti-Sub/Journey to Planet . . .(ea.) 3.99 

Strategic Simulations 

Battallion Commander 23.99 

Gemstone Warrior 10.99 

Sublogic 

Flight Simulator II 31.99 

Scenery CALIF 14.99 

X-Lent 

Typesetter 22.99 

Printshop Interface 21 .99 



ACCESSORIES 



MD1-M SS/DD 5V4" 8.49 

MD2-DM DS/DD 5Vt" 8.99 

MF-1DDM SS/DD 3Vz" 11.99 

MF2-DDM DS/DD 3V 2 " 18.49 

Sony 

MD1D SS/DD 5V4" 6.99 

MD2D DS/DD 5 1 /4" 7.99 

MFD-1DD SS/DD 3Vz" 11.99 

MFD-2DD DS/DD 3V 2 " 17.99 

Allsop Disk Holders 

Disk File 60-5V4" 9.99 

Disk File 30-3V2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 

ICD 

BBS Express (ST) 54.99 

Sparta DOS Construction Set 28.99 

US Doubler/Sparta DOS 47.99 

Real Time Clock 48.99 

RamboXL 29.99 

US Doubler 28.99 



ST SOFTWARE 




ATARI 

Geometry *_«„« 

Vol. II $16" 

Abacus 

PC Board Designer 149.00 

Access 

Leaderboard Golf 22.99 

Activision 

Hacker II Doomsday 27.99 

Antic 

CAD 3-D 31 .99 

Avant Garde 

PC Ditto 64.99 

Batteries Included 

Degas Elite 38,99 



ST SOFTWARE 



Comnet 

ST Term 19.99 

Dae 

Easy Accounting 59.99 

Electronic Arts 

Gridiron Football/Auto Duel, (ea.) 26.99 

Isgur Portfolio 119.00 

Firebird 

Silicon Dreams 19.99 

The Sentry 19.99 

Infocom 

Beyond Zork 34.99 

Michtron 

Major motion 25.99 

Microprose 

Gunship 28.99 

F-15 Strike Eagle 24.99 

Miles Software 

ST Wars 24.99 

Mark Williams 

C 119.00 

Paradox 

Wanderer (3D) 24.99 

Progressive Computer 

Graphic Artist 1.5 129.00 

Psygnosis 

Barbarian/Deep Space (ea.) 25.99 

Soft Logik Corp. 

Publishing Partner 54.99 

Strategic Simulations 

Rings of Zilfin/Phantasie III (ea.) . .23.99 

Sublogic 

Flight Simulator II 32.99 

Timeworks 

Swiftcalc/Wordwriter (ea.) 46.99 

Partner ST 37.99 





PrintMasterPhis 






¥ " .. ,A 

■ < i 
JB1 





UNISON WORLD 
Printmaster Plus $25" 

Word Perfect Corp 

Word Perfect 4.1 189.00 



In the U.S.A. and in Canada 



Call toll-free: 1-800-233-8950 

Outside the U.S.A. call 717-327-9575, Fax 717-327-1217 

Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 

CMO, 101 Reighard Ave., Dept. B7, Williamsport, PA 17701 



OVER 350.000 SATISFIED CUSTOMERS • ALL MAJOR CREDIT CARDS ACCEPTED • CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 



POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to clear. 
For faster delivery, use your credit card or send cashier's check or bank money order. Credit cards are not charged until we ship. Pennsylvania residents add 6% sales 
tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective software will be replaced with the same item only. Hardware 
will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. All sales are final and returned 
shipments are subject to a restocking fee. We are not responsible for typographic or photographic errors. 
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omised, this month 
ig to take a look at some of t, 
lany simulations out on the m; 
:et. And while the term simula- 
. in my mind, immediately places 
me on the battlefield, poised to relive some 
historic military confrontation, the true simu- 
lation genre is much broader, encompassing 
both warfare and peacetime activities, such 
as flight simulation and chess. Today, though, 
we will concentrate on the war game. But be- 
fore we dive into battle, I have a little bad 
news. 



Infocom, like some other manufac- 
turers, has dropped Atari 8-bit support, 
citing memory constraints. While this is 
understandable in Infocom's case (as their 
text intensive works of interactive fiction 
eat up gobs of both RAM and disk space), 
the drop of support from other compa- 
nies is less easily explained. The XE/XL 
lines have 64K, the same as the similar 
Commodore lines. Why then is support 
increasingly gravitating toward Commo- 
dore? Flippies (diskettes containing both 
Commodore and Atari versions, one on 
each side) have decreased, with games be- 
ing produced for only one machine 
(usually the Commodore). This has to be 
a market phenomenon — there's just not 
enough demand out there to warrant the 
eation (or conversion) of an Atari ver- 
i>n of many games. Otherwise, the 
inufacturers, being in this game for the 
money, would support our machines. 
While I don't know the underlying cause 
of this owner apathy, the solution is sim- 
and straightforward. 

Buy Atari hardware. 
Buy Atari software. 
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And when someone you know is look- 
ing at computers, list the benefits of Atari. 
The Commodore and Atari lines are vir- 
tually identical, except, of course, for the 
ugly specter of limited software support. 
It's the old vicious circle, a computerized 
Catch-22. No one will buy the machines 
because there's no software available. And 
manufacturers avoid supporting the 
machines, fearful that they'll be stuck with 
excess inventory. But as I'm reporting this 
month, there really are a lot of games for 
the Atari. A lot of great games. And to 
make sure we continue to get more great 
games, we have to support the designers, 
programmers and software publishing 
companies that support us. 

When you see a game you like, buy it, 
rather than simply borrow it from a fel- 
low user. While sharing might provide 
you short-term gain, in the long run we'll 
all lose and possibly be stuck with unsup- 
ported machines. And when you see a 
game you think you'd like, but it's only 
available in a non-Atari format, write to 
the software publisher asking "why?" By 
casting these consumer votes, we are 
heard, and perhaps we'll get in on all the 
new games coming out. But if we're si- 
lent. . .well . . .I'd rather not even think 
about it. Enough of this pleading; let's get 
on to this month's games. 

War simulations. These very specialized 
games are the easiest to buy and the easi- 
est to review. This is because they are so 
similar. While each may feature a differ- 
ent battle in a different era, their basic 
programming structure is typically the 
same. Based on the old Avalon Hill board 
games which were just begging to be com- 
puterized, these games replace multi- 
sided dice and complex tables with the in- 
credible speed of the computer. The 
resulting games are much easier to learn, 
much easier to play and much more en- 
joyable and accessible to the general 
public 

But whether the battle rages on a mo- 
nitor, or on a table-top board, play 
progresses through a number of phases 
and stages in which you typically issue 
commands to your trooops and then ob- 
serve the results. Most games take into ac- 
count troop strength and speed of 
movement, while others add additional 
depth, accounting for such variables as 
leader charisma and troop morale. Since 
most games operate just about the same, 
you'll want to choose your simulation 
based on the era you wish to examine. 
Will it be our country's Civil War, or a 
conflict on some futuristic planet? The 
choice is up to you. 

If the number of titles a company is- 
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sues in a given genre were the sole indi- 
cator of its superiority, SSI would be the 
simulation king hands-down. Of course, 
by choosing Strategic Simulations as their 
name, they've really stuck their necks out. 
For if SSI's simulations aren't any good, 
then chances are pretty good that few 
players would be eager to try any of the 
many other titles in their massive catalog. 
And that would be a shame, since SSI 
simulations are typically the best availa- 
ble Throughout the years SSI has refined 
their formula, cramming more and more 
action and realism into the scant 48K of 
code that their games occupy. 

The mayhem started many titles ago, 
and the SSI catalog now stands over two 
dozen titles strong. And while the com- 
pany has rendered a lot of their earlier 
titles obsolete, one of their earliest still 
stands out as one of their best. NAM is 
and was my favorite, perhaps because it 
came out so long ago, before it was accept- 
able to talk about the Vietnam War. And 
it was also a welcome change to the Civil 
War scenarios that make up the bulk of 
the simulation market. Best of all, NAM 
uses a joystick, a must for people like me 
whose backs rebel at the prospect of lean- 
ing over a keyboard for the one to four 
hours it takes to finish the game. Menus 
made the game easy to learn and sharp 
arcade-quality graphics kept play exciting. 
Simply put, NAM blew the competition 
away. 

Since then, SSI has pumped out a 
string of Civil War simulations, starting 
with Battle ofAntietam, followed by Gettys- 
burg: The Turning Point. These revolution- 



ary games crammed an incredible 
amount of realism into the sparse 48K of 
the 800, and allowed the game's complex- 
ity to grow along with the ability of the 
player. As you progress through the inter- 
mediate and advanced games, you'll find 
the play becoming more complex, more 
real and more demanding. Each succes- 
sive game utilizing this system has reached 
new levels of realism and historical ac- 
curacy. Their latest, Shiloh, which we will 
examine in depth later, continues the evo- 
lution of SSI simulation. 

But SSI is no longer alone in the simu- 
lation market, since Game Designer's 
Workshop arrived on the scene and be- 
came a force to be reckoned with. r T7ie Bat- 
tle of Chickamauga is every bit as good as 
SSI's comparable Rebel Charge at Chick- 
amauga, and better in that it allows the use 
of the joystick (my delicate back breathes 
a silent sigh of relief). Game Designer's 
Workshop makes games every bit as good 
as SSI, and their entry into the market- 
place can only mean more and better 
simulations from both companies, as each 
tries to capture the limited simulation 
market. Thus, any of the recent simula- 
tions from either of these companies are 
worthy additions to the war gamer's 
library. 

For those whose preferences lean 
toward conflicts of the future, I regret that 
there are few programs to appease your 
blood lust. About the only one that 
springs immediately to mind is Ogre, from 
Origin Systems. This futuristic game be- 
gins with the premise that a nearly invin- 
cible robot/tank creature exists, and that 
it is desirable to destroy it. Unfortunate- 
ly, this is one tough Ogre, and you'll find 
it a worthy opponent on even the easiest 
difficulty settings. This challenging game 
features STlike drop-down menus activiat- 
ed with the joystick and graphics which 
push the XE to its limit. I've heard a lot 
of complaints that it was too hard, but no 
one has dismissed the Ogre as a wimp. 

Another space simulation is Star Fleet. 
I am at odds with a number of my com- 
puter brethren over this one because, 
although Star Fleet has its followers, I do 
not count myself among them. But, since 
it seems unlikely that so many people 
would be drawn to a really bad game, it 
can't be as bad as I think it is. In Star Fleet 
you search the galaxy for enemy encounr 
ters, using a number of offensive and 
defensive systems. Your goal is to progress 
through the Star Fleet ranks to Admiral 
Emeritus. Unfortunately, I never got past 
Ensign. It wasn't that I didn't know how 
to play, as great game design and superb 
documentation made play nearly effort- 
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less. I just never felt drawn into its world. 
Since Star Fleet's fervent followers feel 
otherwise, I am compelled by consensus 
to advise you to at least take a look at it. 
Unfortunately, that's about all the 
futuristic simulations there are Hopefully 
in the coming year, we'll see a few more. 
Personally, I'd like to see SSI port over the 
Roadwar series. These great games drop 
you in the middle of a world similar to 
that depicted in the Mad Max movie ser- 
ies. This premise, which lets you travel the 
globe in vehicular gangs, is not entirely 
original, but is nonetheless very engaging. 
And I notice that there is an Apple ver- 
sion running in 48K. How 'bout it, guys, 
give us an Atari 8-bit version? But until 
they respond to our pleas, I guess we'll just 
have to settle for this newest one. 



SHILOH: Grant's Trial in the West 

by David Landrey 

and Chuck Kroegel 

SSI 

1046 N. Rengstorff Avenue 

Mountain View, CA 94043 

48K Disk $39.95 

In the newest simulation from SSI, the 
masters again use their patented formu- 
la to turn out a game that is not only 
historically accurate and complex, but 
also relatively easy to play. Shiloh: Grant's 
Trial in the West time warps us back to the 
1800s, plunging us into the middle of our 
country's Civil War to experience the 
bloodiest battle our country had seen to 
date. Before the battle of Shiloh, Gener- 
al (later President) Grant had had little 
experience in the field. But that was to 
change on April 6, 1.862, when his troops 
were surprised by the Confederate Army 
from Mississippi, under the command of 
General Johnston. A relatively inex- 
perienced Grant, along with large num- 
bers of untried troops,' made for two of 
the most violent days in the war's history. 

The program utilizes a refined version 
of the Gettysburg game system, which al- 
lows for three levels of play, the first let- 
ting the novice learn to play quickly using 
options, such as hiding enemy troops and 
elaborate handicapping of each side, keep 
play interesting for days to come. And it 
will take days, as each game is rated at 
10-15 hours in length. Refinements of the 
gaming system include the ability to 
switch between strategic and tactical dis- 
plays at any time, and special considera- 
tion for troops new to battle. 

Play is simple and progresses in two 
phases, operation and combat. In the 
operation phase you give troops orders 
and check their condition, while the com- 



bat phase lets you pause as the computer 
resolves the conflicts. Commands are eas- 
ily given. You move an on-screen cursor 
about, reviewing the troops, giving ord- 
ers to those that require them, pressing 
the space-bar to access the command 
menu. Thus you are always advised of a 
unit's status as well as the available 
commands. 

A complete manual chock full of infor- 
mative tables and charts helps you to 
quickly become familiar with the game 
and your troops, and a map provides a 
nice overview. Of particular interest is the 



section which details the differences be- 
tween Shiloh and other SSI games, allow- 
ing veteran gamers to quickly familiarize 
themselves with this complex program. 
All things considered, SSI has achieved 
another victory with Shiloh. While the pro- 
gram breaks no staggering new ground, 
it also offers no disappointing surprises. 



BRIDGE 5.0 

by Arthur M. Walsh 

Artworx Software Company, Inc. 

1844 Penfield Road 
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Penfield. NY 14526 
48K Disk $29.95 

As I mentioned before, simulations 
don't always plunk you down in the mid- 
dle of a raging battlefield. Indeed, some 
of the best simulations beat us at 
mankind's greatest strategy games. There 
are a number of chess games out there 
(Chessmaster 2000 being the best), and a 
backgammon derivative (Pegammori). But 
while chess is one of mankind's most 
complex games, bridge claims enough 
devotees to make it a modern-day classic, 
and it contains enough complexity to 
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keep them interested. Since I am by no 
means an expert (or even a novice bridge 
player), I turned the program over to my 
mother, who has been addicted to bridge 
for years. 

The program boots up nicely enough, 
although the graphic limitations of the 
8-bit make the cards a little hard to 
decipher. Bidding, the first phase of play 
in bridge, is accomplished by typing your 
bid on the keyboard. The three other 
hands are bid by the computer. However, 
my expert found the computer's bids to 
be faulty at times. For instance, Bridge 5.0 
would not arrive at game bid when it was 
possible, and often would not open with 
a two bid when the card count merited 
it. It also did not always respond to a two 
opening bid or to a jump switch. Finally, 
it would occasionally rebid a four-card 
suit, which leads to an incorrect final bid. 
In addition, my young son displayed to 
me that pressing keys unexpected by the 
program caused it to terminate execution 
and confront us with a rude error code. 
While the START key got us going again, 
it did not reset our hand. Most annoying. 

On the plus side, it does supply bridge 
junkies with 8-bits, an opponent who 
(presumably) doesn't cheat and never tires 
of play. Even my mother, who found some 
of its play faulty, nonetheless continues 



to play. Expecially appealing was the fea- 
ture that allows the current hand to be 
replayed an unlimited number of times, 
letting you try different strategies, mak- 
ing the program a great learning tool. Un- 
fortunately, the sparse manual tells little 
about the program and even less about 
bridge. You'll have to hit the library to 
learn how to play. Surprisingly, the pro- 
gram does not bid according to Goren or 
Culbertson, two popular systems, but in- 
stead utilizes the standard American bid- 
ding method. In addition it follows the 
Blackwood and Staymen conventions. 

Other features allow you to save up to 
66 hands, but unlikethe ST version of the 
game, it does not let you set up your own 
hands. All in all, though, Bridge 5.0 is an 
acceptable and affordable bridge pro- 
gram. While it might not provide the ex- 
pert with expert play, it does take the 
place of human opponents when none 
are available, and it makes a good teach- 
ing tool. 

That wraps it up for this month, so I'll 
just power down. But before I disconnect, 
I'll remind you that next time we'll move 
on to fantasy games, my favorite genre. I'll 
name the best D&D derivative, and warn 
you which ones aren't worth the media 
they're stored on. Until then, good 
gaming. fl 
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by Michael A. Banks 

Things have been busier than usual in ANALOG'S 
Atari SIG-. The Forum has turned over almost 
38,000 messages, making it the busiest Forum on 
Delphi. Message thread topics include everything 
from rumors to news and gossip. Stop in and put 
in your two cents' worth! Or, if you have a techni- 
cal question, post it in the Forum; you're almost 
guaranteed to get an answer — the ANALOG- Atari 
SIG membership represents one of the largest Atari 
resources anywhere. 



New ST SIG 

lb unify the ST offerings and better or- 
ganize the database, the ANALOG Atari 
SIG has been expanded to include a new 
ST SIG. The SIG is accessed by typing ST 
at the ANALOG > prompt (although, by 
the time you read this, the SIG may have 
gained its own entry on the main 
GROUPS menu). If you have an ST com- 
puter or if you are just interested in what's 
going on with the STs, be sure to drop by. 
Just as in the ANALOG SIG, the databases 
of the ST SIG are packed with useful and 
unique programs, reviews and informa- 



tion files, and many more are added ev- 
ery week. 

Weekly Conferences 

The Atari ST SIG is now hosting a real- 
time conference each Tuesday to 10 p.m. 
EST. You'll find the conferences an excel- 
lent venue for sharing information about 
Atari computers, getting answers to ques- 
tions and meeting new friends. Even 
though the conference is being held in 
the ST SIG, 8-bit computer owners are en- 
couraged to attend. 

If you haven't yet used Conference on 
Delphi, here's a quick guide. To get to 



Conference, type CONFERENCE (or just 
CO at the Atari SIG main menu, as shown: 

ANALOG'S ATARI SIG Menu: 



Announcements 
Conference 
Databases 
Entry Log 
Forum (Messages) 
MAIL (Electronic) 
Member Directory 
Poll 



Request Free Upload 

Set Preferences 

Topic Descriptions 

Who's Here 

Workspace 

Help 

Exit 



ANALOG > What do you want to do? CO 

You'll be moved to the Conference Menu, which 
lists the major conference commands: 

Welcome to the ANALOG'S ATARI SIG Confer- 
ence System 
Conference Menu: 

WHO (list groups) PAGE a user 

JOIN a group NAME nickname 

EXIT 
CONFERENCE> 

If you type WHO at the CONFER- 
ENCE > prompt, you'll see a list of who's 
currently online in the Atari SIG. Mem- 
bers who are in the conference area will 
have parentheses around their names. 
Any conference groups will also be 
listed— by number and name — and the 
group listings will show who is in each 
group. 

You have to enter a conference group 
before you can chat with others. To do so, 
type JOIN, followed by the number or 
name of the group. Once you're in, type 
your comments; they'll be displayed to 
everyone else in the group, and you'll be 
able to read what everyone else types. (A 
number of special commands are availa- 
ble to you while you're in a conference 
group. Type /HELP for a list.) 

If you wish to talk with another mem- 
ber who's online anywhere on Delphi, 
type PAGE, followed by the name of the 

Delphi has two new 

offerings on its Library 

menu: Terra Nova and 

city/country information 

files. 
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member. If the member comes to the con- 
ference area and accepts your page, a con- 
ference group will be created for you. 

To adopt a "handle" for use while 
you're in conference, type NAME fol- 
lowed by the handle you wish to use. 

(All of these commands can be used 
while you are in a conference group, as 
well, but they must be preceded by a slash 
(/). For more information, type HELP at 
the CONFERENCE > prompt, or /HELP 
while you are in a conference group.) 

The Atari SIG Conference area is a 
great place to meet and chat with other 
Atari users any time, by the way. (And, as 
you know if you've been in the Atari SIG, 
you'll find someone in the SIG most any 
time of day or night.) 

International Additions 

Delphi has two new offerings on its 
Library menu: Terra Nova and city/coun- 
try information files. 

Terra Nova is an international/foreign 
language area accommodating Spanish, 
Japanese, German, French, Esperanto and 
English (which is a foreign language to 
many Delphi members). Terra Nova data- 
bases and Forums contain information 
and HELP files in appropriate languages 
for each area. The area should be a wel- 
come addition for foreign users — 
especially the large number of users who 
log in from Argentina's Delphi (called 
SISCOTEL), and the extremely active 
community of callers from Japan (who 
were formerly accommodated by the NIP- 
PON group — a sub-SIG in the Micro Ar- 
tists' Network). Anyone who is studying 
or otherwise has an interest in another 
language will also find this area useful. 

The city/country information files are 
accessed through selections labeled 
"Metroline" and "Worldline." Each area 
prompts you for the name of a city or 
country, then provides a menu offering 
hotel, travel, cultural and other informa- 
tion on the section. 

Collectibles Topic Added to 
Hobby Shop 

"The Hobby Shop"— Delphi's SIG for 
model builders and other hobbyists — has 
added a "Collectibles" topic to their data- 
bases. This topic accommodates collecti- 
bles of all kinds — from stamps and coins 
to antiques. 



In addition to numerous other books, Michael 
A. Banks is the author o/TJELPHI: The Offi- 
cial Guide and The Modem Book, both 
from Brady Books. You can write to him via E- 
mail on Delphi to membername KZIN. fc\ 




Make the 
Delphi Connection! 

As a reader of ANALOG Computing, 
you are entitled to take advantage of a 
special Delphi membership offer. For only 
$19.95 ($30 off the standard membership 
price!), you will receive a lifetime sub- 
scription to Delphi, a copy of the 
500-page DELPHI: The Official Guide by 
Michael A. Banks and a credit equal to 
one free evening hour at standard con- 
nect rates. Almost anyone worldwide can 
access Delphi (using Tymnet, Telenet or 
other networking services) via a local 
phone call. Make the Delphi connection 
by signing up today! 



To join Delphi: 

1. Dial 617-576-0862 with any terminal or 
PC and modem (at 2400 bps, dial 
576-2981). 

2. At the Username prompt, type JOIN- 
DELPHI. 

3. At the Password prompt enter 
ANALOG. 

For more information, call Delphi Mem- 
ber Services at 1-800-544-4005, or at 
617-491-3393 from within Massachusetts 
or from outside the U.S. 

Delphi is a service of General Video- 
tex Corporation of Cambridge, Mas- 
sachusetts. 
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YOUR ATARI RESOURCE CENTER 

ANALOG Computing continues to offer exciting products for you and your Atari 
Computer. And we're the only magazine for the Atari 8-bit computer line that hasn't 
allowed its content to be virtually taken over by coverage of the Atari ST. We in- 
clude only a minimal amount of ST material so that you can stay informed of what's 
happening with the 8-bit computer's brother. 



Whether you own a reliable ol' 400 or 800, a shiny XL, new XE or 
even an XE Game Machine ... we offer usable utilities, entertaining 
educational software, dynamite disk programs and great graphics 
and games. In fact, our readers still use ANALOG programs that were 

published over five years ago! 



So when software companies turn their 
heads to other computers, you can turn 
yours to the one that supports your 8-bit Atari. And 
that's ANALOG Computing. 

ANALOG'S Best! Over 88 of ANALOG Computing's best and 

most requested programs are now available on this series 

of ten diskettes. The programs are all ready to run and come with complete 

documentation on the flip side of each floppy diskette. Select from Graphics, 

Educational, Utilities 1, Utilities 2, Disk Utilities and Games Disks 1, 2, 3, 4 

and 5. Only 89.95 each (plus $1.50 shipping per order). Specify disk title 

when ordering. 




Unlock the secrets of your Atari Computer! This handy 1 6-page pocket reference 

card covers information you need when programming your 8-bit. Error codes, internal 

codes, PEEK & POKE locations, machine-language aids, graphic mode specs and BASIC commands 

with abbreviations are only some of the helpful items at your fingertips. 

The ANALOG Computing Pocket Reference Card, only $7.95 each! 

(Plus $1.50 shipping and handling.) 



1 6502 Computer. 

)evotes v 50 % of Its Pages tolhe Atari ST? 



An Atari 8-bit Extra. While other "Atari" 8-bit magazines just make claims on how they 

cover your machine, we come through! Over 130 pages of new, never before published 

material. Programs like Easy Type, Dragon Chase, Pastels, Display List Mod, Tactics, Trivia 

and Create-a-base are all documented and ready to type in and run. . .all for just $8.95! 

(Add $1.50 for shipping.) 



Get the Extra on disk! This special offer for Extra owners gets you all of the programs 
in an Atari 8-bit Extra on disk. Avoid typing errors, hours of tedious typing and frustration. 
Just plug in the disk and you are ready to roll! Two, ready-to-run double-sided floppies, $24.95. 
(Disks only. Atari 8-bit Extra sold separately. Please add $1.50 for shipping.) From the 

PIMP k- DC 




magazine that always gives you something Extra. 
Why let your fingers do the walking when your 
Atari can do the running? Get this issue on 
disk! Every month we offer all of the pro- 
grams in ANALOG Computing on disk . . . 
ready to run. Even if you don't know 
anything about machine language or 
don't own the Action! cartridge, we 
offer programs in converted formats 
so they'll run on your Atari com- 
puter. Get this issue for just 
$12.95 (plus 81.50 
shipping). 
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ANALOG COMPUTING OFFICIAL ORDER FORM 



Use this coupon to order the most complete up-to-date products 
specifically designed for your ATARI PC! 

ANALOG'S BEST-Graphics Disk S 9.95 $ 

ANALOG'S BEST— Educational Disk S 9.95 S 

ANALOG'S BEST-Utillties #1 S 9.95 5 

ANALOG'S BEST-Utillties #2 S 9.95 S 

ANALOG'S BEST-Disk Utilities S 9.95 S 

ANALOG'S BEST-Games #1 S 9.95 S 

ANALOG'S BEST-Games #2 S 9.95 S 

ANALOG'S BEST-Games #3 S 9.95 S 

ANALOG'S BEST-Games #4 S 9.95 S 

ANALOG'S BEST-Games #5 5 9.95 S 

ANALOG COMPUTING-POCKET REFERENCE CARD. S 7.95 S 

ANALOG COMPUTING— 8-bit EXTRA S 8.95 S 

ANALOG COMPUTING— 8-bit EXTRA (on disk) $24.95 S 

ANALOG MAGAZINE ON DISK (please specify issue) SI2.95 5 

SHIPPING AND HANDLING— add SI.50 for each product ordered S 

TOTAL ORDER $ 

D Payment Enclosed Charge My D VISA □ Master Card 



Card H 



. Exp. 



Signature . 



Name 



City. 



. State. 



-Zip. 



^ny 

Make checks payable to: LFP, Inc. P.O. Box 67068, Los Angeles, CA 90067. 

Your order will arrive in 4 to 6 weeks — WATCH FOR IT! ZIHYY 



California residents add 6.5% sales tax on all orders except back issues. 
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